Czy mogę pominąć cały plik za pomocą operatora <>?

Question

Następujący kod Perla ma oczywistą nieefektywność;

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

Kod wykona każdy wiersz pliku, którego nie chcemy.

Jeśli chodzi o rozmiar plików, na których uruchamiany jest dany skrypt, jest mało prawdopodobne, aby wprowadził zauważalną różnicę, ale ze względu na proces uczenia się; Jak mogę zapisać cały plik <> i przejść do następnego?

Ma to na celu, ponieważ serwer, na którym działa ten skrypt, przechowuje stare wersje aplikacji z numerem wersji w nazwie pliku, interesuje mnie tylko aktualna wersja.

Answer 1

najpierw grep ARGV.

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

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

Answer 2

Pawła Roub za answer prace, aby uzyskać więcej informacji, zobacz The IO operators section of perlop man page. Wspomniano o schemacie używania grep oraz kilku innych sprawach związanych z <>.

Zanotuj wzmianki o ARGV::readonly dotyczących rzeczy jak:

perl dangerous.pl 'rm -rfv *|' 

Answer 3

rozwiązania Pawła Roub jest najlepiej, jeśli można filtrować @ARGV zanim zaczniesz czytać żadnych plików.

Jeśli trzeba pominąć plik po tym, jak zaczęła iteracja go

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