私はXML :: SAXを使ってXHTML文書の一部を修正しようとしていますが、すべての試みは失敗しました。ここでPerl XML :: SAXを使ってXML文書を変更する
は私がやろうとしているものです:
#!/usr/bin/perl
package MyHandler;
use strict;
use warnings;
use base qw(XML::SAX::Base);
use Data::Dumper;
sub start_element {
my $self = shift;
my $data = shift;
if($data->{LocalName} eq 'span') {
$data->{LocalName} = 'naps';
}
$self->SUPER::start_element($data); # GOOD (and easy) !
#print Dumper($data);
}
1;
#============================
#Main programm
#============================
use strict;
use warnings;
use XML::SAX::ParserFactory;
use XML::SAX::Writer;
my $out;
my $o = XML::SAX::Writer->new(Output => \$out);
my $h = MyHandler->new(Handler => $o);
my $p = XML::SAX::ParserFactory->parser(Handler => $h);
my $data;
{ local undef $/ }; $data = <DATA>;
$p->parse_string($data);
print $out;
__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:wicket="http://wicket.apache.org/dtds.data/wicket-xhtml1.4-strict.dtd">
<body>
<wicket:panel>
<form wicket:id="mvpForm">
<span>Edit Information: </span>
<input type="checkbox" wicket:id="editForm"/>
<span>Name: </span>
<span wicket:id="name"></span>
<input type="text" wicket:id="nameEdit"/>
<span>Last Name: </span>
<span wicket:id="lastName"></span>
<input type="text" wicket:id="lastNameEdit"/>
<span>DOB: </span>
<span wicket:id="dob"></span>
<input type="text" wicket:id="dobEdit"/>
<span>Occupation: </span>
<span wicket:id="occupation"></span>
<input type="text" wicket:id="occupationEdit"/>
<span>Gender: </span>
<span wicket:id="gender"></span>
<span wicket:id="genderEdit"/>
<input type="submit" wicket:id="submit"/>
</form>
</wicket:panel>
</body>
</html>
基本的な考え方は、「昼寝」にすべての「スパン」に変更し、STDOUTに得られた変性XMLを書くことです。
また、SAXを使用してXMLチャンクをマージできるかどうか、つまり別のものに展開された特定の要素が見つかった場合、どのように出力にマージすることができますかSTDOUT?
など。 から:
<xmltag>
<expandable/>
</xmltag>
へ:
<xmltag>
<expanded>
This is an expanded element
</expanded>
</xmltag>
感謝。
何そのテキストノードを追加することについてはどうですか? – daxim
SAXはノードの追加をサポートしているとは思いません。恐らく汚い道を使っているでしょう! – tuxuday
ありがとう、それは少し予期しなかったthoだった:)。はい、展開可能なノードが見つかると別のサックスパーサーを作成するのが最善の方法ですが、メインのパイプラインとどのようにマージするのですか?私はもう少し実験しますが、結局は解決策があるかもしれません。 – dryajov