perl - 使用 Perl 的菱形和就地编辑运算符对目录中的多个文件进行就地编辑

Question

我正在尝试使用 Perl 的就地编辑运算符 $^I 就地编辑一堆文本文件。我使用菱形 (<>) 运算符遍历目录，如下所示:

$^I = ".bak";

@ARGV = <*.txt>;

while (<>)
{
    s/((?:^|\s)-?)(0+)(?=\s|$)/$1.$2/g;
    print;
}

这完美地工作并且完成了我需要它做的工作。但是，如果我的 @ARGV 已经填充了程序所需的其他一些数据怎么办？我尝试执行以下操作:

$^I = ".bak";

my @files = <*.txt>;

while (<@files>)
{
    s/((?:^|\s)-?)(0+)(?=\s|$)/$1.$2/g;
    print;
}

但它不起作用。我在这里想念什么？我不能使用我的 $ARGV，因为它包含其他数据并且不能将它与文件匹配模式混为一谈。

有什么建议？

谢谢!

Answer 1

你可以给@ARGV带有 local 的临时值关键词:

{
    local @ARGV = <*.txt>;
    while (<>) {...}
} # @ARGV gets the old value back