PerlのDOM操作

XML::DOMモジュールを使ってXMLをパース

XML

      
      作者B
      作者C
      2004/10/21

Perlコード: の値を取り出す。

use strict;
use XML::DOM;


my $dom = new XML::DOM::Parser;
my $doc = $dom->parsefile('books.xml');


my $nodes_book = $doc->getElementsByTagName('author');


for(my $i=0; $i<$nodes_book->getLength; $i++){
      printf "%s\n", encode('EUC-JP', $nodes_book->item($i)->getFirstChild->getNodeValue);
}