XML::XPathを使ってファイル内の指定されたパスに一致するノードを取得する方法
- XML::XPathを使用して指定されたXMLファイル内の指定されたパスに一致するノードを取得する方法について説明します。
- 質問者はXML::XPathを使用してファイル内の指定されたパスに一致するノードを取得しようとしていますが、エラーが発生しています。
- 参考書の写しを使用しているため、コードのミスがないと考えられますが、エラーが発生しています。解決策を求めています。
- ベストアンサー
XML::XPathを使う
エラーがでて期待する出力が出ず困っています。 ファイル名とXPathのコマンドライン引数をとり、 指定されたパスに一致するノードを出力するものです。 （参考書の写しなので、記述ミスはないと思います。） ■grabber.pl use XML::XPath; use XML::XPath::XMLParser; my $xpath = XML::XPath->new( filename => shift @ARGV ); my $nodeset = $xpath->find( shift @ARGV ); foreach my $node ( nodeset->get_nodelist ) { print XML::XPath::XMLParser::as_string( $node ) . "\n"; } コマンドラインに入力しているものは、 perl grabber.pl data.xml "/inventory/category/item/name" ■data.xml <?xml version="1.0"?> <inventory date="2001"> <category> <item id="2"> <name>aaaa</name> </item> </category> </inventory> です。 perl grabber.pl data.xml "/inventory/category/item/name" としても、下記にエラーが出ます。 Can't locate object method "get_nodelist" via package "nodeset" (perhaps you for got to load "nodeset"?) at grabber.pl line 5. いろいろ試してみたり調べたのですが、 行き詰ってしまいました。 期待する出力は"<name>aaaa</name>"なのですが・・・ どなたかこのエラーの原因がおわかりになるかた いらっしゃいますでしょうか。 環境は以下になります。 ・windowsxp ・activePerl モジュールのインストール済み ・XML-XPath ・XML-Parser 以上です。
- trfnc223
- お礼率63% (111/174)
- Perl
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
コマンドラインのパラメータをshift @ARGV で渡してるので perl grabber.pl data.xml "/inventory/category/item/name" ↓ perl grabber.pl data.xml /inventory/category/item/name でどうでしょうか？
その他の回答 (1)
- kumoz
- ベストアンサー率64% (120/185)
XML::XPath モジュールを使ったことがないので詳しいことはわかりません。 コードを一見したところ、 foreach my $node ( nodeset->get_nodelist ) { は、 foreach my $node ( $nodeset->get_nodelist ) { ではないかと思うのですが....?
お礼
できました！！！ ありがとうございます。 参考書がまちがっているなんてあるんですね・・・ 疑いもしませんでした。。 今後は一字一句確認したいと思います。 本当にありがとうございました！
関連するQ&A
- ->の意味
よく->といったものが、 参考スクリプトなどをみていると、 でてくるのですが、いまいちどう 解釈してよいのやらわかりません。 調べてもなかなかみつからず、質問させていただきます。 use XML::XPath; use XML::XPath::XMLParser; my $xpath = XML::XPath->new( filename => shift @ARGV ); my $nodeset = $xpath->find( shift @ARGV ); foreach my $node ( $nodeset->get_nodelist ) { print XML::XPath::XMLParser::as_string( $node ) . "\n"; } XML::XPath->new( filename => shift @ARGV );とか $xpath->find( shift @ARGV );とか $nodeset->get_nodelistは どういった理解をすればよいのでしょうか。 教えていただけますでしょうか。
- ベストアンサー
- Perl
- XML::XPatｈ -- 追加したノードが見付からない
XMLのテンプレートを既存のXMLに追加したのですが、 その後 findnodes() で検索しても合致しません。 XML::XPath::Node::Element->new() を使って作成したものは 合致してくれます。 XML::XPath::XMLParser でパースしたものを追加して findnodes() で合致させるにはどのようにしたらよいのでしょうか。 ------------------------------- use XML::XPath; #### 元のXML my $xmldata = <<EOM; <?xml version="1.0" encoding="UTF-8" ?> <list> <item>orange</item> <item>apple</item> <item>lemon</item> </list> EOM ### 追加するXMLのテンプレート my $xmlappend = <<EOM; <item>pine</item> EOM ## 追加先ノードを取り出す my $xml = XML::XPath->new( xml=>$xmldata ); my ($list) = $xml->findnodes('/list'); ## 追加用XMLを作成して追加 my $append = XML::XPath::XMLParser->new( xml=>$xmlappend )->parse; $list->appendChild( $append ); ## もういっこ追加。こちらはこの場で作る $newnode = XML::XPath::Node::Element->new('item'); $newtext = XML::XPath::Node::Text->new('banana'); $newnode->appendChild( $newtext ); $list->appendChild( $newnode ); ## 現状確認 → pine は入っていた print $list->toString."\n"; ## item一覧を取得 @nodes = $xml->findnodes('/list/item'); ## 一覧を出力 → 追加した pine が出力されない。 bananaはある。 map{ print $_->toString."\n" } @nodes;
- ベストアンサー
- Perl
- XML::XPath でXMLを修正して出力するには？
XML::XPath を使って以下のようなソースを書きましたが、出力の方法がわかりません。 ++++++++++++++++ use strict; use XML::XPath; my $filename = "test.html"; my $xp = XML::XPath->new(filename=>$filename); my @nodeset = $xp->findnodes("//div[attribute::class='center']//img[attribute::class='right'"); for my $node ( @nodeset ){ print $node->removeAttribute('class'), "\n"; } print $xp; 1; ++++++++++++++++++++++++++++ 最後の print $xp のところで、修正後のXMLを出力したいです。 修正後のXMLをテキストとして出力（変数に入れるでも、標準出力でも）するには、どうすればよいのでしょうか？
- ベストアンサー
- Perl
- PerlによるXMLファイルの解析＆出力
XMLファイルで以下のようなXMLファイルから、 <?xml version="1.0" encoding="Shift_JIS"?> <class3> <Personal> <No>1</No> <Name>相上男</Name> <phone>00-0000</phone> </Personal> <Personal> <No>2</No> <Name>柿句毛子</Name> <phone>11-1111</phone> </Personal> </class3> perlでNameの部分のタグだけ抜き出しXMLファイルに出力するプログラムを組み立てたいです。自分でも以下のようなプログラムを組み立てたのですが、 #!/usr/bin/perl use strict; use Encode; use XML::XPath; use XML::XPath::XMLParser; # 書き込み用にファイルを開く open( OUTPUTFILE, ">Output2.xml" ); # 標準出力に書き出し print &xml_xpath; # ファイルを出力先に設定 select( OUTPUTFILE ); # 出力先を元に戻す select( STDOUT ); # ファイルを閉じる close( OUTPUTFILE ); sub xml_xpath{ my $file = "class3.xml"; my $xp = XML::XPath->new(filename => $file); foreach my $node( $xp->find('/class3/Personal/Name')->get_nodelist){ print Encode::encode("shift_jis", $node )."\n"; } } XML::XPath::Node::Element=REF(0x1036c58c) XML::XPath::Node::Element=REF(0x1036cb8c) と、出てくるだけで動きません。ほとんど初心者なのでまったく見当違いのプログラムを組み立てているかもしれませんが、よろしくおねがいします。
- 締切済み
- その他(データベース)
- XML::XPathでのfor文の記述
たびたびお世話になります。よろしくお願いいたします。 perlでXML文書をHTMLへ変換しています。 ---------------------------------------- <!-- file.xml --> <root> <jouhou> <mei> <toushu>あ</toushu> <toushu>い</toushu> <toushu>う</toushu> </mei> <mei> <toushu>え</toushu> <toushu>お</toushu> <toushu>か</toushu> </mei> </jouhou> </root> ---------------------------------------- このようなXMLの場合に、XML::XPathで「あ」と「え」などの最初に来る<toushu>取りたいのですが 日によって<mei>の数が異なるため、<mei>の数を取得してその数でforをすることにしました。 が、うまくいきません。 my $xp = new XML::XPath( filename => "./file.xml" ); for(my $j=1;$j<=$xp->findvalue("count(//jouhou/mei/toushu)");$j++){ print $j; #←ここでは1と2が出ます。 print $xpath->find('//jouhou/mei[$j]/toushu')->get_node(1)->string_value; } このままでは全く出なく、["$j"]とすると、出るには出るのですが「あ」が２回出てしまいます。 書き方が違うと思うのですが、（）でくくってみても出ません。 ちなみに print $xpath->find('//jouhou/mei[1]/toushu')->get_node($j)->string_value; だと、ちゃんと「あ」と「い」が出ました…。 もし、お分かりになれば教えていただきたいです。 お手数をおかけしますが、よろしくお願いいたします。
- ベストアンサー
- Perl
- XML::DOM / XML::XPathでソート
XML::DOMで効率的なソートの方法はどんなものがありますでしょうか。 一応動くものは作れたのですが、効率的とは言い難く、しかも ソート項目が一意のデータでないといけないという欠点があります。 ############################################### use XML::DOM::XPath; my $xml = <<EOM; <?xml version="1.0" encoding="UTF-8" ?> <list> <item id="10">Apple</item> <item id="5">Orange</item> <item id="20">Melon</item> </list> EOM my $parser = XML::DOM::Parser->new(); my $doc = $parser->parse( $xml ); ## <item>タグの一覧を作成 my @list = $doc->findnodes('/list/item'); ## <item>タグ id属性一覧を作成 my @idlist = map{ $_->getAttribute("id") } @list; ## id属性順にソート foreach my $id ( sort{ $a<=>$b } @idlist ){ ## id属性値を指定してノードリストを取得 my @item = $doc->findnodes('/list/item[@id='.$id.']'); ## idは一意なのでリストの先頭で固定 print $item[0]->getAttribute('id')."\n"; print $item[0]->getFirstChild->getNodeValue."\n"; } ############################################### ハッシュなら sort{ $hoe{$b} <=> $hoe{$a} } keys %hoe といった方法があるのですが、XML::DOMの場合は同じようにいきません。 良い方法がありましたらお願いします。
- ベストアンサー
- Perl
- XML:連番要素の全ての子要素にxPath式でアクセスするには
xml文書１ <?xml version="1.0"> <customer0> <name>aaaa</name> <tel>1234</tel> </customer0> <customer1> <name>bbbb</name> <tel>2345</tel> </customer1> xml文書２ <?xml version="1.0"> <customer> <name>aaaa</name> <tel>1234</tel> </customer> <customer> <name>bbbb</name> <tel>2345</tel> </customer> xml文書１のcustomerの子要素(name,tel)を全て取得したいです。 ルートノードから辿って行くのではなく、ダイレクトにアクセスしたいです。 xPath式で子要素を全て取り出すことはできますでしょうか？ xml文書２であれば「//customer」で可能だと思うんですが。 宜しくお願い致します。
- ベストアンサー
- XML
- XMLで特定の兄弟のノードの数を取り出したい（Rubyを使用）
はじめまして。大学の卒業研究でXMLを利用していたのですが，手詰まりとなってしまいましたので，皆様のご教授に預かりたい思い書き込みました。 RubyでXMLを加工するプログラムを作っているのですが（Ruby1.6，DOM:XML Parser 0.6.8 http://www.yoshidam.net/Ruby_ja.html#xmlparser），次のようなことしたいと考えています。 <question_solution_tree> <node name="ハード・周辺機器"> ← <node name="ハード・パソコンパーツ"> <category>ID-c0001</category> <category>ID-c0002</category> </node> <node name="周辺機器"> <category>ID-c0007</category> <category>ID-c0008</category> </node> <category>ID-c0015</category> </node> <node name="オペレーティングシステム(OS)"> ← <category>ID-c0016</category> <category>ID-c0017</category> </node> <category>ID-c0019</category> <category>ID-c0020</category> </question_solution_tree> このようなXMLがあり，矢印部1階層目のnodeの数（2つ）のみを調べたいと思い， @root.getElementsByTagName("node").length で，nodeの数を取得したのですが，子孫すべてのnodeの数（4つ）を取得してしまいます。getElementByTagName()メソッドは指定したタグをオブジェクト内から全て抽出し、配列形式のコレクションに格納してしまうからです。子孫ではなく，兄弟の矢印の部分のnodeの数を取得するにはどのようにしたらよいのでしょうか。 ご教授お願いいたします。
- ベストアンサー
- XML
- Perl での XML 置換について
perl で XML::LibXML モジュールを使用して下記のようなXMLのテキスト部分の置換をしようとしています。 <item id="1"> <name>hoge</name> <description> テスト<b>テスト</b>テスト </description> </item> <item id="2"> <name>hoge2</name> <description> テスト2<i>テスト2</i>テスト2 </description> </item> これに対して、 for $node ($dom->findnodes('//item/description/text()')){ $text = $node->toString; $text =~ s/.../.../; $node->setData($text); } のように置換する処理を考えたのですが、description の中に <b> や <i> のようなインライン要素があると正しく置換、書き戻しがされません（置換対象は、これらインライン要素の中にも外にもあります）。 これをなんとか正常に動作させる方法はあるでしょうか。 どうぞ、よろしくお願いいたします。
- ベストアンサー
- Perl
- VB2005でXMLから複数ある要素の項目を取得する方法
VB2005、XMLの初心者です。 下記XMLの「ヤマダタロウ」を抽出するのがうまくいきません。 <Module> <Body> <Item Code= A TableId=001> <Name>ヤマダタロウ</Name> </Item> <Item Code= B TableId=001> <Name>山田太郎</Name> </Item> </Body> </Module> 上記XMLがmsxmlDocとして引数で下記プロシージャに渡されるのですが、selectNodesではなぜか取得できません。 どこか間違っているでしょうか。 Private Sub prvParseXML(Byval msxmlDoc As MSXML2.DOMDocument) Dim NodeList As MSXML2.IXMLDOMNodeList NodeList = msxmlDoc.selectNodes("/Module/Body/Item[@Code='A'][@tableId='001']/Name") End Sub 何かヒントになるようなことでも良いので、皆様の知恵をお借りできれば幸いです。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
補足
ご回答ありがとうございます。 試してみたんですが、まったく同じエラーがでてしまったようです。 なにがまちがっているのでしょうか・・・・