我可以用<>操作符跳过整个文件吗?

首先是grep argv。

@ARGV = grep { $_ !~ /\d+\.\d+\.\d+/ } @ARGV;

while (<>)
{
  # do something with the other files
}

保罗·鲁布的解决方案是最好的,如果你能过滤 @ARGV 在开始读取任何文件之前。

如果在开始迭代之后必须跳过一个文件,

while (<>) {
    if (/# Skip the rest of this file/) {
        close ARGV;
        next;
    }
    print "$ARGV: $_";
}

Paul Roub answer 有关详细信息,请参见 The IO operators section of perlop man page .其中提到了使用grep的模式以及与<>相关的其他一些内容。

注意提到 ARGV::readonly 关于:

perl dangerous.pl 'rm -rfv *|'