Ejemplo de código Perl: proceso de argumento de línea de comando con opciones

Aquí hay un hermoso ejemplo de código Perl que procesa argumentos de línea de comando con opciones específicas. Con este fragmento de código, puede definir cualquier número de opciones como un desarrollador profesional de Perl de una manera profesional. Es bonito porque es la forma más precisa de especificar opciones para argumentos de línea de comando que he visto.

Nos permite utilizar el siguiente formato de uso:

Todos los argumentos de la línea de comandos se leen en la matriz @ARGV, y ese es el comienzo de este ejemplo de procesamiento de argumentos de la línea de comandos.

# file name: process.pl
while (scalar @ARGV > 0){
	$Temp = shift @ARGV;
	if ($Temp eq '-l'){
		$NextParam = 'language';
	}
	elsif ($Temp eq '-t'){
		$NextParam = 'test';
	}
	elsif (defined $NextParam){
		if ($NextParam eq 'language'){
			$Lang = $Temp;
		}
		elsif ($NextParam eq 'test'){
			$Test = $Temp;
		}
 
		undef $NextParam;
	}
}

Este enfoque se puede aplicar al procesamiento de argumentos de la línea de comandos de Java aunque no usamos la línea de comandos con frecuencia en Java.

Nota: Desde $ ARGV[0] es el primer argumento, $ # ARGV es el número de argumentos menos uno.