exemple de script Perl récupèrant 2 paramètres :
1 2 3 4 5
| use strict;
my $Param1 = $ARGV[0];
my $Param2 = $ARGV[1];
print "param recus = $Param1, $Param2\n"; |
et comment qu'il fonctionne ? :
perl Mon_prog.pl toto titi
ce qui donnera dans le print :
param recus = toto, titi\n
Vu que tu te lances tout juste dans le Perl :
- utilise toujours "use strict;" au début de tes scripts. Ca t'oblige à déclarer chaque variable avec un "my" devant mais au moins, tu ne te feras pas avoir si par mégarde tu utilises en plein milieu de ton code une variable $totoo alors que tu voulais dire $toto. Avec use strict, Perl t'avertira que $totoo lui est inconnue, ce qui te fera gagner un temps précieux
- lance perl comme ceci "perl -w mon_prog.pl", le flag "-w" oblige Perl à faire plus gaffe à ce que fait ton script. En cas d'erreur, ça te retournera davantage de messages d'avertissements (-w pour warnings).
- quand tu lances un script en l'alimentant avec des paramètres, tous les paramètres attérissent dans le tableau @ARGV. Comme tu viens du C, cette notion doit te paraître plus que connue
mais là encore, attention. En C, ARGV[0] contient le nom du programme, PAS EN PERL. Le nom du programme est alloué à la variable $0 et donc $ARGV[0] est bel et bien le 1er paramètre donné à ton programme.
Partager