Respuesta.

Historia de la pregunta:

El ciclo while es una de las estructuras de control básicas de Perl, utilizada desde el principio para procesar datos, leer archivos e iterar sobre colecciones. Está estrechamente integrado con la variable especial $_, que por defecto toma valores al leer líneas de un archivo u otras iteraciones.

Problema:

El uso incorrecto de la variable $_, leer archivos sin descriptores explícitos y la finalización incorrecta de los ciclos pueden llevar a errores en el procesamiento de cadenas y pérdida de datos. El procesamiento automático por defecto utilizando $_ aumenta la flexibilidad, pero requiere atención al escribir código, especialmente al manejar anidaciones y modificaciones de la cadena dentro del ciclo.

Solución:

Para leer archivos, a menudo se utiliza la expresión

while (<FILEHANDLE>) {
    # ...
}

o incluso simplemente while (<>) para leer desde el flujo de entrada o de una lista de archivos pasados al script. Dentro de tal ciclo, Perl coloca automáticamente la línea leída en $_, lo que permite usar expresiones regulares, sustituciones y otras operaciones de manera concisa. Si es necesario especificar explícitamente la variable, se utiliza la construcción while (my $line = <FILEHANDLE>).

Ejemplo de código:

open my $fh, '<', 'file.txt' or die $!;
while (<$fh>) {
    chomp;                # trabaja con $_
    print "Línea: $_
";
}
close $fh;

Características clave:

Trabajo automático con la variable $_ dentro del cuerpo del ciclo
Lectura de líneas de archivos o STDIN a través del operador <>
Posibilidad de procesamiento conciso de datos sin especificar explícitamente variables

Preguntas trampa.

¿Qué sucede si modifico $_ dentro del ciclo while?

Modificar $_ dentro del ciclo no afecta al archivo leído, solo al valor de la variable en el contexto de una sola iteración. Sin embargo, el reutilizar $_ puede confundir si se trabaja simultáneamente con múltiples fuentes de datos.

¿Qué sucede si utilizo while (<>) sin abrir previamente un archivo?

El operador <> sin abrir explícitamente un archivo lee ya sea de STDIN o de archivos especificados en @ARGV al ejecutar el script. Si no se especifica nada, espera la entrada del teclado.

¿Es obligatorio usar chomp dentro de while para eliminar ?

No, no es obligatorio, pero sin chomp, cada línea contendrá un carácter de nueva línea . Esto a menudo causa resultados inesperados (por ejemplo, saltos de línea duplicados al imprimir).

Errores comunes y anti-patrones

No usar chomp cuando es necesario
Sobrescribir $_ en ciclos anidados sin guardar el valor anterior
Usar while (<>), sin considerar la ausencia de datos de entrada

Ejemplo de la vida real

** Caso negativo

En un script que parseaba logs, olvidaron agregar chomp dentro de while (<FILE>), lo que causó que aparecieran saltos de línea adicionales en la salida por consola.

Pros:

Implementación rápida

Contras:

Formato de salida incorrecto

** Caso positivo

El desarrollador siempre utiliza declaraciones claras de variables a través de my $line = <$fh> y chomp inmediatamente después de leer la línea.