使用 Perl 脚本将数字替换为 XML 文件中的字符串 [重复]

Question

我有一个 XML 文件。我需要将comment="18" 中的数字替换为comment="my string"，其中我的字符串来自我的@array（$array[18] = my string）。

 <rule ccType="inst" comment="18" domain="icc" entityName="thens"  entityType="toggle" excTime="1605163966" name="exclude" reviewer="hpanjali" user="1" vscope="default"></rule>

这是我尝试过的。

while (my $line = <FH>) {
      chomp $line;
      $line =~ s/comment="(\d+)"/comment="$values[$1]"/ig;
      #print "$line \n";
      print FH1 $line, "\n";
}

Answer 1

这里是一个使用XML::LibXML的例子：

use strict;
use warnings;
use XML::LibXML;

my $fn = 'test.xml';
my @array = map { "string$_" } 0..20;
my $doc = XML::LibXML->load_xml(location => $fn);
for my $node ($doc->findnodes('//rule')) {
    my $idx = $node->getAttribute('comment');
    $node->setAttribute('comment', $array[$idx]);
}
print $doc->toString();

Answer 2

这是一个XML::Twig 示例。这与XML::LibXML example 的想法基本相同，使用不同的工具以不同的方式完成：

use XML::Twig;

my $xml =
qq(<rule ccType="inst" comment="18"></rule>);

my @array;
$array[18] = 'my string';

my $twig = XML::Twig->new(
    twig_handlers => {
        rule => \&update_comment,
        },
    );
$twig->parse( $xml );
$twig->print;

sub update_comment {
    my( $t, $e ) = @_;
    my $n = $e->{att}{comment};
    $e->set_att( comment => $array[$n] );
    }