2008年02月10日(日)更新

たけち: 今回は、入力したXMLデータの要素をソートして表示してみよう。

さらら: あっ、はい。

たけち: 入力XMLファイルの要素をソートして出力XMLファイルをつくることをしたいんだけど、今回はその前に要素をソートして表示して見て、ソートの仕方の例を学んでおこうと思うんだ。

さらら: そうなんだ。

たけち: 読み込みXMLファイルはつぎのものを使うね。

• 読み込みXMLファイル名 = sample12_in.xml

<?xml version="1.0" encoding="utf-8" ?>
<manyo>
<poem no="0028" poet="持統天皇">春過ぎて夏来るらし白たえの衣干したり天の香具山</poem>
<poem no="0161" poet="持統天皇">北山にたなびく雲の青雲の星離り行き月を離れて</poem>
<poem no="0397" poet="笠郎女">奥山の岩本菅を根深めて結びし心忘れかねつも</poem>
<poem no="0408" poet="大伴家持">なでしこがその花にもが朝な朝な手に取り持ちて恋ひぬ日なけむ</poem>
<poem no="0599" poet="笠郎女">朝霧のおほに相見し人故に命死ぬべく恋ひわたるかも</poem>
<poem no="0611" poet="大伴家持">今さらに妹に逢はめやと思へかもここだ我が胸いぶせくあるらむ</poem>
<poem no="1353">石上布留の早稲田を秀でずとも縄だに延へよ守りつつ居らむ</poem>
<poem no="1616" poet="笠郎女">朝ごとに我が見る宿のなでしこの花にも君はありこせぬかも</poem>
<poem no="2540">振分けの髪を短み青草を髪にたくらむ妹をしぞ思ふ</poem>
<poem no="4516" poet="大伴家持">新しき年の初めの初春の今日降る雪のいやしけ吉事</poem>
</manyo>

さらら: 何人かの人の歌が並んでいるわね。あと、詠み人が分からない歌もあるわね。

たけち: そうだね。今回のソート表示の例では、

• 歌人ごと、歌番号にソートして表示
• 歌人の無い歌は表示しない

さらら: はい。

たけち: じゃ、いきなりだけど、具体的なソースコードの例を見てみよう。

require "rexml/document"
require "kconv"

xml_file_name = "sample12_in.xml"

doc = nil
File.open(xml_file_name) {|xmlfile|
  doc = REXML::Document.new(xmlfile)
}

print("--- ", xml_file_name, " ---\n\n")
# Hash(ハッシュ)を生成
poems = Hash.new

sample = doc.root
sample.elements.each { |poem|
  no =poem.attributes.get_attribute("no").value

  attr_poet = poem.attributes.get_attribute("poet")
  if attr_poet != nil then
    poet = attr_poet.value.tosjis
    poems[poet + no] = poem
  end
}
# poem要素をソート
sorted = poems.sort
sorted.each {|key, poem|
  attr_poet = poem.attributes.get_attribute("poet")
  attr_no = poem.attributes.get_attribute("no")
  print(attr_poet.value.tosjis," ", attr_no," ", poem.text.tosjis, "\n")
}

たけち: じゃ、このsample12.rbを実行した結果をみてみよう。コマンドプロンプトウィンドウで

• ruby sample12.rb

さらら: はい。

[たのしいXML のインデックス]へ