En la línea 4 (while (defined($_ = <STDIN>)
)
almacenamos en la variable mágica $_
una línea que es leída desde
la entrada estándar.
El bucle se ejecuta mientras la condición sea cierta: mientras haya
líneas en el fichero.
Cuando se alcanza el final del fichero, se devuelve undef
y por
tanto se termina el bucle.
Casiano Rodríguez León
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León
is licensed under a Creative Commons Reconocimiento 3.0 Unported License.
Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19