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をテキストとして出力（変数に入れるでも、標準出力でも）するには、どうすればよいのでしょうか？

回答No.5

_--_--_-_- · ベストアンサー

これが最善の方法なのかは分かりませんが、分かる範囲でお答えします。
ANo.2の別解をもう一度引用します。

for my $div ($xml->findnodes('//div[@class="center"]')) {
for my $img ($div->findnodes('//img[@class="right"')) {
$img->removeAttribute('class');
}

print $div->toString, "\n";
}

これを応用すると、以下のようなコードが考えられます。

for my $root ($xml->findnodes('/')) {
for my $img ($root->findnodes('//img[@class="right"]')) {
$img->removeAttribute('class');
}

print $root->toString, "\n";
}

つまりルート要素から順にXML::XPathに解析させるというものです。
動くかどうかは分かりません。すみません。

お礼

root ノードを取得して、それを toString するという方法で
うまくいきました。
ありがとうございました！！

回答No.4

_--_--_-_-

ANo.3ではなくANo.2の間違いです。
度々すみません。

回答No.3

_--_--_-_-

ANo.3で書くのを忘れてしまいましたが、
my $xml = XML::XPath->new(filename => 'test.html');
を前提としたコードです。

お礼

No.2 のお礼での訂正です。
×>変更した後の前文を出力させたいのですが、そんな方法はありますでしょうか？
○>変更した後の全文を出力させたいのですが、そんな方法はありますでしょうか？

回答No.2

_--_--_-_-

例えばこんなのはどうでしょうか。

for my $node ($xml->findnodes('//div[@class="center"]//img[@class="right"]')) {
$node->removeAttribute('class');
print $node->toString, "\n";
}

あるいは次のような別解も。

for my $div ($xml->findnodes('//div[@class="center"]')) {
for my $img ($div->findnodes('//img[@class="right"')) {
$img->removeAttribute('class');
}

print $div->toString, "\n";
}

お礼

> おそらく、$xp->findnodes() や $node->removeAttribute() などとしても、$xp 自体には変更が及ばないのではないでしょうか。

なんとなくそんな予想もしてはいたのですが、やっぱりそうなのでしょうか・・・。
$nodeset が $xp のもつオブジェクトの集合として渡されるなら、いけるかなーと思ったのですが。

いただいた解決例だと、該当する部分のタグしか出力しないですよね。
変更した後の前文を出力させたいのですが、そんな方法はありますでしょうか？

回答No.1

_--_--_-_-

これは勘による、全く当てにならない回答であることをお断りしておきます。

おそらく、$xp->findnodes() や $node->removeAttribute() などとしても、$xp 自体には変更が及ばないのではないでしょうか。
つまり最後に $xp を出力したのではもう遅いということです。
多分 for 文の中で、$node に対してループが回るたびに出力処理を行うか、もしくは:

my $result;

for my $node (@nodeset) {
#...
$result .= $node->whatever();
}

print $result;

のようにして、別な変数に修正結果をためておき、最後に出力するという形になるのではないでしょうか。
私も日々XML::XPathを扱っていますが、修正→出力目的で使用したことはないので、アドバイスはここまでとなります。