Tüm dosyayı <> operatörüyle atlayabilir miyim?

Question

Aşağıdaki Perl kodu bariz verimsizliği vardır;

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

Kod, istemediğimiz dosyanın her satırından geçer. Bu özel komut dosyası bu çalışıyorsa dosyaların boyutuna günü

ama öğrenme uğruna, farkedilir bir fark yaratmak için olası değildir; <> dosyasının tamamını nasıl çöp kutusuna atabilirim ve diğerine nasıl geçebilirim? sever bu komut dosya adında sürüm numarası ile uygulamalar mağazalar eski sürümlerinde çalıştığı için

bu amacı, ben geçerli sürümünde ilgileniyorum. İlk

Answer 1

grep ARGV. Daha fazla bilgi için

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

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

Answer 2

Paul Sorun en answer eserleri The IO operators section of perlop man page bakın. Grep kullanmanın paterni, <> ile ilgili birkaç başka şeyden de bahsedilmektedir. gibi ARGV::readonly ilgili şeylerin bahsedilmeye

not alın: Herhangi dosyaları okuma başlamadan önce @ARGV filtre eğer

perl dangerous.pl 'rm -rfv *|' 

Answer 3

Paul Sorun çözümüyle en iyisidir.

Eğer bunu yineleme başladıktan sonra bir dosyayı atlamak varsa

,

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