Benötigen Sie Hilfe bei diesem Perl-Code zu verstehen

Question

$pattern = shift(@ARGV) 
while(<ARGV>){ 
    if(/$pattern/){ 
     print $ARGV,": ",$_; 
    } 
} 

Der Befehl: ./myprog.pl Größe Datei *

Wo File1:

SetSize 
ResetSize 
SETSIZE 
resetSIZE 

File2:

This is a new file 
and its Size is very small. 

Der Ausgang:

File1: SetSize 
File1: ResetSize 
File2: and its Size is very small 

Könnte jemand bitte diesen Hauptcode mir erklären. Ich verstehe wirklich nicht, wie es zwei Dateiausdrucke gibt, wo jede while-Schleife jedes Argument einmal ausführt, und es gibt nur 1 wenn Bedingung. Wie wird arg1 (Datei 1) zweimal ausgegeben?

Answer 1

while(<ARGV>) ist ein bisschen Magie Perl: es wird Ihnen Linien aus jeder Datei in @ARGV aufgeführt. Relevante Dokumente: perlio: I/O Operators und perlvar: ARGV.