[ruby-list:12536] Re: HTML to Array (Re: Re: http-access (HTTP/1.1 client))

原です。

In message "[ruby-list:12534] HTML to Array (Re:  Re: http-access (HTTP/1.1 client))"
    on 99/03/04, Shin-ichiro Hara <[e-mail]> writes:

|ftp://ftp.netlab.co.jp/pub/lang/ruby/contrib/html-parser-19990303.tar.gz
|の sgml-parser.rb を使って、HTML を Array にするプログラムを書いてみ
|ました。

ついでに print_array の CGI.tag 版です。

class CGI
  def CGI.tag(element, attributes = {})
    "<" + element +
      attributes.collect{|name, value|
      " " + name + (value == "" ? "" : '="' + value + '"')
    }.to_s + ">" +
    (iterator? ? yield.to_s + "</" + element + ">" : "")
  end

  def CGI.print_array(h, s = "", depth = 0)
    h.each_with_index { |e, i|
      s << "  " * depth
      if e.is_a? Array
	name, attr, entity = e
	a = ""
	if attr.size > 0
	  a <<  ", {"

	  attr.each { |k, v|
	    k = k.gsub(/["\\]/) {"\\#$&"}
	    v = v.gsub(/["\\]/) {"\\#$&"}
	    a << "\"#{k}\"=>\"#{v}\", "
	  }
	  a.sub!(/, $/, "}")
	end
	s << sprintf("CGI.tag(\"%s\"%s)", name, a)
	if entity
	  s << " {\n"
	  CGI.print_array(entity, s, depth+1)
	  s << "  " * depth << "}"
	end
      else
	s << sprintf("\"%s\"", e.gsub(/[\\"]/){"\\#$&"}.gsub(/\n/, "\\n"))
      end
      s << (i < h.size-1 ? " +\n" : "\n")
    }
  end
end

作ってみたのはいいけど、これを CGI の中で使うことはほとんど
あり得ないなあ。(^^;