使用 perl 搜索和替换 xml 中的特定代码

Question

我是 Perl 新手，我的任务是替换或删除多个 XML 文件中的注释部分 (<!--)，替换后我需要将这些多个 XML 文件移动到其他目录。我在下面说明我的D:\folder1\ 有许多xml 文件a.xml、b.xml、c.xml 等等，替换后我需要将所有文件从folder1 移动到D:\folder2\。

我通过替换 - 和 @@@ 尝试了一个文件，但我不知道从目录中的 xml 文件中删除注释行 (<!--add aaa -->)。

下面是我的 Perl 代码

#!/usr/bin/perl

use strict;
use warnings;

my $tag = 'SHORT_DESC';

open my $input_file, '<', 'test.xml' or die $!;
open my $output_file, '>', 'test_out.xml' or die $!;

my $input;
{
  local $/;               #Set record separator to undefined.
  $input = <$input_file>; #This allows the whole input file to be read at once.
}

$input =~ s/&/@@@/g;
$input =~ s/^- (?=<)//gm;
$input =~ s/<header[^>]*>\K\s*<header[^>]*>//gis;
close $input_file or die $!;
print {$output_file} $input;
close $output_file or die $!;

我的 XML 是

<?xml version = '1.0' encoding = 'UTF-8'?>
<!-- Order details-->
<order>
<Names>
<!-- Names-->
<content>This is dummy content</content>
</Names>
</order>

Answer 1

使用适当的 XML 处理模块。我喜欢XML::XSH2，是XML::LibXML 的包装：

#! /usr/bin/perl
use warnings;
use strict;

use XML::XSH2;   # To handle XML.
use Path::Tiny;  # To move files around.

my ($source, $target) = @ARGV;

for my $file (path($source)->children(qr/\.xml$/)) {
    xsh "open $file ; delete //comment() ; save";
    path($file)->copy($target);
    path($file)->remove;
}