xml 使用 perl 修改

Question

这是我的示例 xml 文件（weblogic 应用程序部署计划的截取版本）。

<?xml version="1.0" encoding="UTF-8"?>
<deployment-plan>
  <application-name>ear-my-service</application-name>
  <variable-definition>
    <variable>
      <name>characteristics</name>
      <value>myTestEAR</value>
    </variable>
    <variable>
      <name>Url</name>
      <value>ABC</value>
    </variable>
    <variable>
      <name>time</name>
      <value>300</value>
    </variable>
  </variable-definition>
</deployment-plan>

我想在名称为特征时更新值。我环顾四周并整理了这个脚本。

#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;

my $data = shift ||die $!;

my $t= XML::Twig->new(
    twig_handlers => {
        q{project[string(name) =~ /\bcharacteristics\b/]/value} => \&value,
    },
    pretty_print => 'indented',
);
$t->parsefile( $data );
$t->print;

sub value {
    my ($twig, $value) = @_;
    $value->set_text("myTestEAR_Modified");
}

但是，它不会将值更改为 myTestEAR_Modified。我做错了吗？

Answer 1

XML中的标签名称是variable，不是project，在条件(q{variable[string(name)...)中替换即可。

xml 使用 perl 修改

xml modification using perl

perl

xml-twig