Arguments du script perl

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";
 

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.