我可以使用<>運算符跳過整個文件嗎？

Question

下面的Perl代碼有明顯的低效率;

while (<>) 
{ 
if ($ARGV =~ /\d+\.\d+\.\d+/) {next;} 
... or do something useful 
} 

代碼會遍歷我們不想要的文件的每一行。

關於文件的大小，這個特定的腳本在這上面運行的可能性不大，但爲了學習;我如何垃圾整個文件<>正在工作，並轉移到下一個？

這樣做的目的是因爲此腳本運行的服務器存儲舊版本的應用程序，其版本號在文件名中，我只對當前版本感興趣。

Answer 1

grep ARGV第一。

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

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

Answer 2

保羅Roub的answer作品詳細信息，請參閱The IO operators section of perlop man page。提及使用grep的模式以及與<>有關的其他一些事情。

注意到ARGV::readonly有關的事情提的一樣：

perl dangerous.pl 'rm -rfv *|' 

Answer 3

保羅Roub的解決方案是最好的，如果你可以過濾@ARGV你開始閱讀任何文件之前。

如果你跳過一個文件，你已經開始迭代之後，

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