通过 perl 脚本在文件中就地替换

Question

我想知道如何使用 perl 脚本而不是命令行替换字符串。 我通过网络搜索并尝试了以下内容。

我有一个文件：

> cat temp
this is one
>

我有一个我写的下面的脚本：

> cat temp.pl
#!/usr/bin/perl -i.bak
use strict;
use warnings;
my @ARGV=('temp');
$^I = '.bak';
my %hash=("one"=>"1");
{
    while (<>) {
        s/(one)/$hash{$1}/g;
        print;
    }
}
exit;

但是当我尝试执行(>perl temp.pl) 时它只是挂起并且文件也没有得到更新。 我使用的 perl 版本是 5.8.4 命令行的东西（perl -pi -e 's/one/1/g' temp）也可以完美运行。 我做错了什么吗？

Answer 1

您需要更改全局@ARGV，并使用my 将@ARGV 改为词法

use strict;
use warnings;

@ARGV=('temp');

$^I = '.bak';
my %hash=("one"=>"1");
while (<>) {
        s/(one)/$hash{$1}/g;
        print;
}