sed命令在命令行上运行，但不在perl脚本中

在Perl脚本中，您需要有效的Perl语言，就像在C程序中需要有效的C文本一样。在终端

sed..

sed..

您可能需要在内部

qx()

system()

但是，为什么

sed

use warnings;use strict;use File::Copy 'move';my $file     = 'filename';my $out_file = 'new_' . $file;open my $fh,     '<', $file     or die "Can't open $file: $!";open my $fh_out, '>', $out_file or die "Can't open $out_file: $!";while (<$fh>) {    s/$( [^{] [a-z_]* )/${$1}/gix;    print $fh_out $_;}close $fh_out;close $fh;move $out_file, $file or die "Can't move $out_file to $file: $!";

正则表达式使用一个 否定的字符类
，

[^...]

{

$

{

在5.14+中，您可以使用 非破坏性

/r

print $fh_out s/$([^{][a-z_]*)/${$1}/gir;

用来返回更改后的字符串（并且原始字符串不变）的右侧

print

最后，应使用File ::Temp制作输出文件，并移至原始文件上方。以此方式覆盖原始文件将更改

$file

单行（命令行）版本，易于测试

perl -wpe's/$([^{][a-z_]*)/${$1}/gi' file

这仅打印到控制台。更改原始添加

-i

-i.bak

出现了一个合理的问题“ 没有更短的方法了 ”。

这是一个使用方便的Path :: Tiny的文件，它不大，因此我们可以将其读取为字符串。

use warnings;use strict; use Path::Tiny;my $file     = 'filename';my $out_file = 'new_' . $file;my $new_content = path($file)->slurp =~ s/$([^{][a-z_]*)/${$1}/gir;path($file)->spew( $new_content );

第一行将文件读入一个字符串，在该字符串上进行替换；更改后的文本将返回并分配给变量。然后，带有新文本的变量将覆盖原始变量。

通过将表达式从第一行而不是变量放在第二行，可以将这两行压缩为一个。但是，在一个（复杂）语句中两次打开同一文件并不是完全可靠的做法，因此我不建议您使用这种代码。

但是，由于模块的版本为0.077，您可以很好地执行

path($file)->edit_lines( sub { s/$([^{][a-z_]*)/${$1}/gi } );

或使用edit将文件插入字符串并对其应用回调。

因此，这毕竟将其切成一条漂亮的线。

我想补充一点，删节代码行几乎是不值得的，但是如果它干扰了对代码结构和正确性的关注，那肯定会导致麻烦。但是，这

Path::Tiny