Non riesco a capire ... !!!

[Grejo]

#!/usr/local/bin/perl
# leggi.pl
# legge i dati dallo standard input una riga per volta
# e li stampa
$i = 0;
while ($riga = <STDIN>) {
$i++;
print "$i) $riga";
}

Quello che ho scritto sopra è il codice di un esempio di perl che ho trovato in internet. Non riesco a capire quando si ferma il ciclo dato che all'interno delle parentesi tonde del while c'è una assegnamento di un valore a una variabile e non una condizione?
Ciao e Grazie, Grejo.

[shishii]

Ciao,

si ferma quando il filehandle <...> restituisce EOF (end of file), cioè quando il contenuto passato finisce.
while verifica che la condizione sia vera, EOF fa fallire questa verifica restituendo false.

[Grejo]

Ho capito ... Grazie ... !!! Ciao.