Arguments du script perl

Imprimer

Comment passer des arguments en ligne de commande à un script Perl.

 
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

my ( $fichier_in, $fichier_out ) = ();
GetOptions( 'in=s' => \$fichier_in, 'out=s' => \$fichier_out, );

unless ( defined $fichier_in and defined $fichier_out ) {
  print "USAGE : $0 -in fichier_entree -out fichier_sorti\n";
}

print "entree : $fichier_in\n";
print "Sorti : $fichier_out\n";