¿Cómo puedo pasar argumentos de línea de comandos a un programa Perl?

Question

Estoy trabajando en un script de Perl. ¿Cómo puedo pasarle los parámetros de la línea de comando?

Ejemplo:

script.pl "string1" "string2" 

Answer 1

Depende de lo que quieras hacer. Si desea utilizar los dos argumentos como archivos de entrada, puede pasarlos y luego usar <> para leer sus contenidos.

Si tienen un significado diferente, puede usar GetOpt::Std y GetOpt::Long para procesarlos fácilmente. GetOpt::Std solo admite conmutadores de un solo carácter y GetOpt::Long es mucho más flexible. De GetOpt::Long:

use Getopt::Long; 
my $data = "file.dat"; 
my $length = 24; 
my $verbose; 
$result = GetOptions ("length=i" => \$length, # numeric 
        "file=s" => \$data,  # string 
        "verbose" => \$verbose); # flag 

Alternativamente, @ARGV es una variable especial que contiene todos los argumentos de línea de comandos. $ARGV[0] es el primero (es decir, "string1" en su caso) y $ARGV[1] es el segundo argumento. No necesita un módulo especial para acceder al @ARGV.

Answer 2

Se pasa en al igual que lo está pensando, y en su escritura, que los reciba de la matriz @ARGV. De esta manera:

my $numArgs = $#ARGV + 1; 
print "thanks, you gave me $numArgs command-line arguments.\n"; 

foreach my $argnum (0 .. $#ARGV) { 

    print "$ARGV[$argnum]\n"; 

} 

De here.

Answer 3

foreach my $arg (@ARGV) { 
    print $arg, "\n"; 
} 

imprimirá cada argumento.

Answer 4

Si los argumentos son los nombres de archivo para ser leídos desde, utilice el diamante (<>) del operador para llegar a su contenido:

while (my $line = <>) { 
    process_line($line); 
} 

Si los argumentos son opciones/interruptores, utilizar Getopt :: Std o Getopt :: Long, como ya se mostró en slavy13.myopenid.com.

En la remota posibilidad de que son algo más, se puede acceder a ellos, ya sea caminando a través de @ARGV explícita o con el comando shift:

while (my $arg = shift) { 
    print "Found argument $arg\n"; 
} 

(Tenga en cuenta que haciendo esto con shift sólo funcionará si se encuentra fuera de todos los sub s. Dentro de un sub, se recuperará la lista de argumentos pasados ​​a la sub en lugar de los aprobados para el programa.)

Answer 5

Si sólo quieres algunos valores, sólo puede utilizar el @ARGV formación. Pero si busca algo más poderoso para hacer algún procesamiento de opciones de línea de comandos, debe usar Getopt::Long.

Answer 6

Como alternativa, una forma más atractiva perlish .....

my ($src, $dest) = @ARGV;

"supone" se pasan dos valores. El código adicional puede verificar que la suposición es segura.

Answer 7

Sin embargo, otro opciones es usar Perl -s, por ejemplo:

#!/usr/bin/perl -s 

print "value of -x: $x\n"; 
print "value of -name: $name\n"; 

A continuación, llame así:

% ./myprog -x -name=Jeff 
value of -x: 1 
value of -name: Jeff 

O ver the original article para más detalles:

Answer 8

Puede acceder directamente, asignando la variable especial @ARGV a una lista de variables. Así, por ejemplo:

($st, $prod, $ar, $file, $chart, $e, $max, $flag ,$id) = @ARGV; 

Perl tmp.pl 1 2 3 4 5

Answer 9

my $output_file; 

if((scalar (@ARGV) == 2) && ($ARGV[0] eq "-i")) 

{ 

$output_file= chomp($ARGV[1]) ; 


}