如何在具有相同扩展名的多个输入文件上运行 Perl 脚本？

Question

如何在具有相同扩展名的多个输入文件上运行 Perl 脚本？

 perl scriptname.pl file.aspx

我希望为当前目录中的所有 aspx 文件运行它

谢谢！

Answer 1

在您的 Perl 文件中，

 my @files = <*.aspx>;
 for $file (@files) {

      # do something.

 }

<*.aspx> 称为glob。

Answer 2

您可以使用通配符将这些文件传递给 perl

在你的脚本中

foreach (@ARGV){
    print "file: $_\n";
    # open your file here...
       #..do something
    # close your file
}

在命令行上

$ perl myscript.pl *.aspx

Answer 3

您可以显式使用glob 来使用shell 参数，而无需过多依赖shell 行为。

for my $file ( map {glob($_)} @ARGV ) { 
   print $file, "\n";
};

您可能需要通过扩展多个参数来控制文件名重复的可能性。

Answer 4

对于带有-n 或-p 的简单单行，您需要

perl -i~ -pe 's/foo/bar/' *.aspx

-i~ 表示修改每个目标文件，并将原始文件保留为备份，并在文件名中添加~ 后缀。 （省略后缀以不留下备份。但是，如果您仍在学习或试验，这是一个坏主意；完成后删除备份比如果您搞砸了从备份中恢复原件麻烦得多。 )

如果你的 Perl 代码对于单行代码来说太复杂（或者只是有用到可以重用），显然用 scriptname.pl 替换 -e '# your code here' ...尽管然后可能重构 scriptname.pl 以便它接受一个列表文件名参数，只需使用scriptname.pl *.aspx 在当前目录中的所有*.aspx 文件上运行它。

如果您需要递归目录结构并查找具有特定命名模式的所有文件，find 实用程序很有用。

find . -name '*.aspx' -exec perl -pi~ -e 's/foo/bar/' {} +

如果您的find 不支持-exec ... +，请尝试使用-exec ... \;，尽管它会更慢并启动更多进程（您找到的每个文件一个，而不是尽可能少地处理所有文件）。

要仅扫描某些目录，请将.（命名当前目录）替换为以空格分隔的要检查的目录列表，甚至使用find 查找目录本身（然后也许探索@987654339 @ 用于在 find 选择的每个目录中使用您的复杂、错综复杂、业务关键、可能是 find 选项谓词的秘密列表进行操作）。

也许还可以探索 find2perl 在 Perl 中本地执行此目录递归。

Answer 5

如果你在 Linux 机器上，你可以试试这样的。

for i in `ls /tmp/*.aspx`; do perl scriptname.pl $i; done

Answer 6

例如处理perl scriptname.pl *.aspx *.asp

在linux中：shell扩展通配符，所以perl可以简单

for (@ARGV) {
  operation($_); # do something with each file
}

Windows 不扩展通配符，因此在 perl 中扩展每个参数中的通配符，如下所示。然后 for 循环以与上述相同的方式处理每个文件

for (map {glob} @ARGV) {
  operation($_); # do something with each file
}

例如，这将在 Windows 下打印展开的列表

print "$_\n" for(map {glob} @ARGV);

Answer 7

您还可以传递您拥有 aspx 文件的路径并一一读取。

#!/usr/bin/perl -w

use strict;

my $path = shift;
my @files = split/\n/, `ls *.aspx`;

foreach my $file (@files) {
        do something...
}