使用 Bash 变量作为字符串文字通过 Perl 行传递给正则表达式

Question

使用 Bash 变量作为字符串文字通过 Perl 行传递给 Regex 表达式：

我有一个 Bash 脚本，可以通过 RegEx 语句对 XML 文件进行一些编辑。该语句在 Perl 中效果很好，但在 Bash 中效果不佳，但问题是将变量传递到 Regex 语句的替换部分。使用字符串文字都很好，但不实用，因为需要编程。下面是一个小sn-p。

示例 XML Test.xml：

<?xml version="1.0" encoding="UTF-8"?>
<Root>
    <NodeA>12345678</NodeA>
    <NodeB>5551212</NodeB>
    <NodeC>a1fea1f8</NodeC>
</Root> 

示例适用于文字字符串：

xml=`cat Test.xml`
value="TESTttt"
# Perl flavor 
new_xml=`echo ${xml} | perl -ne 's/(\<NodeB\>).*?(\<\/NodeB\>)/\1New_String\2/m;print $_'`

如何将变量value 传递到Regex 语句的替换字符串中，将'New_String' 替换为合乎逻辑的？

Answer 1

不要那样做。字符串插值和将 shell 输入 perl 是一件肮脏的事情。尤其是 XML，这是一种规范非常严格的数据格式。 Perl 有一些很好的 XML 解析选项。

试试这样的方法：

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

use XML::Twig;

my $twig = XML::Twig->new();
{
    local $/;
    $twig->parse(<DATA>);
}

my $NodeB = $twig->root->first_child('NodeB');

my $old_text = $NodeB->text();
print $old_text, "\n";

$NodeB->set_content('Some New Text');

$twig->set_pretty_print('indented');
$twig->print;

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<Root>
  <NodeA>12345678</NodeA>
  <NodeB>5551212</NodeB>
  <NodeC>a1fea1f8</NodeC>
</Root> 

（您可以使用parsefile 代替阅读text.xml，为了举例，我刚刚将其内联为DATA）。