Como posso passar argumentos de linha de comando para um programa Perl?

Estou trabalhando em um script Perl. Como posso passar parâmetros de linha de comando para ele?

Exemplo:

script.pl "string1" "string2"

Depende do que você quer fazer. Se você deseja usar os dois argumentos como arquivos de entrada, basta passá-los e usá-los <>para ler seu conteúdo.

Se eles tiverem um significado diferente, você poderá usar GetOpt::Stde GetOpt::Longprocessá-los facilmente. GetOpt::Stdsuporta apenas comutadores de caractere único e GetOpt::Longé muito mais flexível. 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

Como alternativa, @ARGVé uma variável especial que contém todos os argumentos da linha de comandos. $ARGV[0]é o primeiro (ou seja, "string1"no seu caso) e $ARGV[1]é o segundo argumento. Você não precisa de um módulo especial para acessar @ARGV.

Você as passa exatamente como está pensando e, no seu script, as obtém da matriz @ARGV. Igual a:

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

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

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

}

A partir daqui .

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

irá imprimir cada argumento.

Como alternativa, uma maneira perlish mais sexy ...

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

"Assume" dois valores são passados. Código extra pode verificar que a suposição é segura.

Ainda outra opção é usar perl -s, por exemplo:

#!/usr/bin/perl -s

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

Então chame assim:

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

Ou consulte o artigo original para obter mais detalhes:

Você pode acessá-los diretamente, atribuindo a variável especial @ARGVa uma lista de variáveis. Então, por exemplo:

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

perl tmp.pl 1 2 3 4 5

Se os argumentos forem nomes de arquivos para leitura, use o operador diamond (<>) para obter seu conteúdo:

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

Se os argumentos forem opções / opções, use GetOpt :: Std ou GetOpt :: Long, como já mostrado por slavy13.myopenid.com.

Com a chance de serem algo mais, você pode acessá-los através do @ARGV explicitamente ou com o shiftcomando:

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

(Observe que fazer isso com shiftsó funcionará se você estiver fora de todos os subs. Em a sub, ele recuperará a lista de argumentos passados ​​para o sube não dos passados ​​para o programa.)

my $output_file;

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

{

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


}

Se você quiser apenas alguns valores, basta usar a matriz @ARGV. Mas se você está procurando algo mais poderoso para fazer o processamento de algumas opções de linha de comando, use Getopt :: Long .