LAN板とソレ以外の日々

#!/usr/bin/perl

use strict;
use Encode;
use XML::DOM;

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile("hogehoge.xml");

my $nodes = $doc->getElementsByTagName("Query");
my $nodelength = $nodes->getLength();

for my $i (0..($nodelength-1)) {
  my $node = $nodes->item($i);
  my $queryName = $node->getAttributeNode("name")->getValue();
  print "$queryName"."\n";
  # SQLタグを含むElementは Queryタグ毎に1個しかないため
  my ($sqlNode) = $node->getElementsByTagName("SQL")->item(0);
  # SQLタグの中身を引っ張り出す(getChildNodes)
  # そして TEXT_NODEがタダ一つだけ取得されると仮定(item(0)：概ね大丈夫)
  # で、TEXT_NODEから値を引っ張り出す（getData）
  print $sqlNode->getChildNodes->item(0)->getData."\n";
}