while (<@array>) effetti per perl

Question

while(<@thisArray>) 

Qualcuno sa cosa farebbe esattamente? Stavamo solo avendo una discussione su di esso in quanto è il codice è di solito qualcosa come:

while(<STDIN>) 

Answer 1

<@thisArray> opere come glob(@thisArray). Quindi fornisce un elenco di tutti i file che corrispondono ai membri dell'array.

Se un elemento dell'array non corrisponde a un file, viene restituito l'elemento stesso.

Answer 2

Esso itererà attraverso i nomi dei file corrispondenti ai modelli in @thisArray.

Risultato di perl -MO=Deparse -e '1 while(<@thisArray>)' mostra che <> viene convertito in glob:

use File::Glob(); 
'???' while defined($_ = glob(join($", @thisArray))); 

Da glob manuale:

In un contesto scalare, itera glob attraverso tali espansioni nomefile, restituendo undef quando la lista è esaurita .

valore predefinito per $" spazio, quindi più pattern da @thisArray ricomposte in un'unica stringa e poi spacco indietro di spazio all'interno glob:

noti che glob divide i suoi argomenti spazi e tratta ciascuno segmento come modello separato.

Answer 3

Vedi perlop:

Se ciò che è all'interno delle parentesi angolari è né un filehandle nè una semplice variabile scalare contenente un nome filehandle, typeglob, o riferimento typeglob, viene interpretato come un modello nome file per essere globbed