argument en perl

Hoby -  
 aadelmar -
Quelqu'un sait -il comment passer un argument
en langage PERL ?

ma_commande_perl mon_argument

(Je veux en fait que ma_commande_perl traite le fichier d'entre mon_argument)

1 réponse

aadelmar
 
hoby ----
ma_commande_perl mon_argument

(Je veux en fait que ma_commande_perl traite le fichier d'entre mon_argument)
---------------------------------
my $fichier_source = $ARGV[0];

# c-a-d que Perl prendra mon_argument pour le nom du fichier à traiter

exemple:
commande 1er_arg 2eme_arg 3eme


if (@ARGV) {
  $prems = $ARGV[0];
  $deux = $ARGV[1];
  $trois = $ARGV[2];
}

print "mon premier arg est $prems\n";
print "mon second est $deux\n";
print "mon troisiéme est $trois\n";


>donnera
mon premier arg est 1er_arg
mon second est 2eme_arg
mon troisiéme est 3eme
0