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

原です。

肝心の HTML形式のArray を HTML に戻す関数を書き忘れていました。

ここで、HTML形式のArray とは、

  HTML形式のArray = エレメントの配列
  エレメント = String または
               [タグ名, 属性を表すHashかArray] または
               [タグ名, 属性を表すHashかArray, HTML形式のArray]

です。


def array2html(array, s = "")
  array.each do |element|
    case element
    when String, Numeric
      s << element.to_s
    else
      name, attr, array1 = element
      if name != "-"
	s << "<" + name 
	if attr && attr.size > 0
	  attr.each { |k, v|
	    s << (v=="" ? " #{k}" : " #{k}=\"#{v}\"")
	  }
	end
	s << ">"
      else
	s << "<!--"
      end
      if array1
	array2html(array1, s)
	s << (name=="-" ? "-->" : "</"+name+">")
      end
    end
  end
  s
end


それから、やまだあきらさんの SimpleHtmlParse の方
(ftp://arika.org/pub/Tools/Ruby/SimpleHtmlParse.19990224.tar.gz)
を使った HTML to Array もつけます。

-----^ h-parser.rb
require "simplehtmlparse"
def h_parse(io)
  element_stack = []
  elements = SimpleHtmlParse.new(io)
  elements.each do |name, mode, attr, text|
    case mode
    when SimpleHtmlParse::TAG_BEGIN
      case name
      when SimpleHtmlParse::BANG
	new_element = text
      else
	new_element = [name, attr]
      end
      element_stack.push new_element
    when SimpleHtmlParse::TAG_END
      n = element_stack.size
      i = 0
      while (i < n) && (entity = element_stack[n-i-1])
	if entity.is_a?(Array) && (entity[0] == name)
	  entity.push i > 0 ? element_stack[n-i..n-1] : [""]
	  break
	end
	i += 1
      end
      if i < n
	element_stack[n-i..n-1] = [] if i > 0
      else
	$stderr.printf("WARNING: unmatched </%s>\n", name);
      end
    else
      element_stack.push text
    end
  end
  element_stack
end
-----$ h-parser.rb


実行例：

  require "h-parser.rb"
  a = h_parse($<)
  array2html(a, $>)