我在 Linux 主机上有一个目录,其中包含几个属性文件,我想通过用占位符标记替换硬编码值来编辑这些文件。我的目标是有一个 perl 脚本,它读取一个分隔文件,其中包含每个属性文件的条目,其中列出了硬编码值、占位符值和要编辑的文件的名称。
例如,在 file.prop 我设置了这些值
<connection targetHostUrl="99.99.99.99"
targetHostPort="9999"
我想用标签替换值,如下所示
<connection targetHostUrl="TARGETHOST"
targetHostPort="PORT"
会有几个类似的条目,所以我必须匹配 IP 和 PORT 的唯一组合,所以我需要多行匹配。
为此,我编写了以下脚本来获取分隔文件名的输入,该文件名由 || 分隔。我从 config 目录中获取该文件并读取值以获取硬编码的值、标记和文件名以进行编辑。然后我读入该属性文件,进行替换,然后再次将其写出。
#!/usr/bin/perl
my $config = $ARGV[0];
chomp $config;
my $filename = '/config/' . $config;
my ($hard,$tagg,$prop);
open(DATAFILE, $filename) or die "Could not open DATAFILE $filename.";
while(<DATAFILE>)
{
chomp $_;
($hard,$tagg,$prop) = split('\|\|', $_);
$*=1;
open(INPUT,"</properties/$prop") or die "Could not open INPUT $prop.";
@input_array=<INPUT>;
close(INPUT);
$input_scalar=join("",@input_array);
$input_scalar =~ s/$hard/$tagg/;
open(OUTPUT,">/properties/$prop") or die "Could not open OUTPUT $prop.";
print(OUTPUT $input_scalar);
close(OUTPUT);
}
close DATAFILE;
在配置文件中,我有以下条目
<connection targetHostUrl="99.99.999.99"(.|\n)*?targetHostPort="9999"||<connection targetHostUrl="TARGETHOST1"\n targetHostPort="PORT"||file.prop
我的输出如下图所示。它将我希望成为换行符的内容作为文字 \n
<connection targetHostUrl="TARGETHOST"\n targetHostPort="PORT"
我找不到将 \n 作为换行符的方法。起初我想,没问题,我会做第二次替换,比如
perl -i -pe 's/\\n/\n/o' $prop
尽管这可行,但由于某种原因,它会将 ^M 字符放在每一行的末尾,除了我进行替换的那一行。我不想进行第三次替换以去除它们。
我已经搜索并找到了其他进行多行搜索/替换的方法,但它们都从字面上解释了 \n。
有什么建议么?