Respuesta.

El manejo de argumentos de línea de comandos es una tarea básica para programas en Perl. Históricamente, Perl ha proporcionado la variable @ARGV para acceder a los argumentos pasados al script. El problema es que escenarios complejos pueden incluir parámetros de bandera y clave-valor, lo que requerirá un análisis manual del array @ARGV. Con un enfoque incorrecto, se pueden procesar mal los parámetros, omitir valores obligatorios o procesar valores adicionales, lo que lleva a errores en la lógica del programa.

La solución es utilizar un manejo sistemático: iterar sobre @ARGV, analizar el contenido, procesar claves y sus valores.

Ejemplo de código:

my %args;
while (my $arg = shift @ARGV) {
    if ($arg =~ /^--(\w+)=?(.*)/) {
        my ($key, $val) = ($1, $2);
        if ($val eq '' && @ARGV) {
            $val = shift @ARGV; # siguiente valor
        }
        $args{$key} = $val eq '' ? 1 : $val;
    } else {
        push @{$args{'_free'}}, $arg;
    }
}

print "Got foo: $args{foo}
" if exists $args{foo};

Características clave:

Trabajo flexible con parámetros posicionales y nombrados.
Verificación manual de la presencia y longitud de los valores.
Mantenimiento de una lista separada de argumentos libres (_free).

Preguntas trampa.

¿Qué sucederá si el argumento se pasa como '--flag value', en lugar de '--flag=value'?

Si solo se maneja la separación a través de '=', el valor será una cadena vacía, y el siguiente elemento del array será ignorado como un argumento independiente. La solución es considerar ambas variantes al analizar:

if ($arg =~ /^--(\w+)=?(.*)/)

y si $val está vacío, tomar el siguiente elemento.

¿Cómo se comporta Perl con argumentos que contienen espacios?

Perl no separa argumentos dentro de @ARGV por espacios; toda la separación la realiza el shell. Por lo tanto, "--foo=bar baz" se tratará como dos elementos diferentes, a menos que la cadena esté entre comillas en la línea de comandos. Esto debe tenerse en cuenta y siempre requerir que el usuario escape los espacios.

¿Se puede modificar @ARGV usando shift, sin perder los argumentos originales?

Shift cambia el propio array, y no se puede restaurar la lista original de argumentos. Si se necesita mantener el contenido original de @ARGV, debe clonarse de antemano:

my @original_argv = @ARGV;

Errores comunes y anti-patrones

No verificar si hay un valor después de la clave, lo que lleva a leer fuera del array.
Ignorar el procesamiento de argumentos libres y banderas sin valores.
No tener en cuenta ambas variantes '--key value' y '--key=value'.

Ejemplo en la vida real

Caso negativo

El script solo procesaba claves del tipo '--foo=bar', ignorando '--foo bar', y fallaba con un error al no encontrar un valor.

Ventajas:

Código simple.

Desventajas:

El uso del script era incómodo, los usuarios cometían errores con frecuencia.
El script fallaba en escenarios inesperados de línea de comandos.

Caso positivo

Se agregó el manejo de ambas sintaxis y la verificación de longitud de @ARGV, se permitieron los interruptores de bandera.