在XML标记之间查找和替换字符

Question

我有一个不受行绑定的XML文件.它有标签,<tag1>并且</tag1>从生成它的代码中有一些已删除的变量(我现在无法纠正它).我希望能够更改这些标签中的字符来纠正它们.角色有时很特别.

我有这个Perl单行显示标签之间的内容,但现在我希望能够在文件中替换它找到的内容.

perl -0777 -ne 'while (/(?<=perform_cnt).*?(?=\<\/perform_cnt)/s) {print $& . "\n";      s/perform_cnt.*?\<\/perform_cnt//s}' output_error.txt

这是XML的一个例子.注意标签之间的垃圾字符perform_cnt.

<text1>120105728</text1><perform_cnt>ÈPm=</perform_cnt>
<text1>120106394</text1><perform_cnt>†AQ;4K\_Ô23{YYÔ@Nx</perform_cnt>

我需要像0一样替换它们.

Answer 1

我喜欢XML :: Twig这些东西.它需要一点点习惯,但是一旦你理解了设计(以及一些关于DOM处理的东西),很多事情变得非常容易:

use XML::Twig;

my $xml = <<'HERE';
<root>
<text1>120105728</text1><perform_cnt>ÈPm=</perform_cnt>
<text1>120106394</text1><perform_cnt>†AQ;4K\_Ô23{YYÔ@Nx</perform_cnt>
</root>
HERE

my $twig = XML::Twig->new(   
    twig_handlers => { 
        perform_cnt   => sub { 
            say "Text is " => $_->text;  # get the current text

            $_->set_text( 'Buster' );    # set the new text
            },
      },
    pretty_print => 'indented',
    );

$twig->parse( $xml );
$twig->flush; 

通过缩进的漂亮打印,我得到:

<root>
  <text1>120105728</text1>
  <perform_cnt>Buster</perform_cnt>
  <text1>120106394</text1>
  <perform_cnt>Buster</perform_cnt>
</root>