Perl多个文件读取替换字符串，写入多个文件

Question

我有这个代码可以工作，但是这只适用于一个具有特定名称的文件，我怎样才能让它在当前文件夹中执行所有.vb文件，并在后面输出文件名加_1

ttt_terrortown

Answer 1

我可能会这样做。 （这假定脚本与.vb文件在同一目录中运行。）

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

# script running in same directory as the .vb files

for my $file (glob "*.vb") {

    my $outfile = $file =~ s/(?=\.vb$)/_1/r;
    print "$file $outfile\n"; # DEBUG 

    # open input and output files

    # do the while loop
}

循环中的print语句用于调试目的 - 查看是否正确创建新文件名。当您对获得所需文件感到满意时，可以将其删除或注释掉。

更新：将glob放在for循环中，而不是将其读入数组。