si j'ai bien compris, tu lances ton script perl en lui donnant 2 paramètres, ADRESSE_IP et dossier ?
Indiqués tels quels, ces 2 paramètres sont logés dans @ARGV, + précisément dans $ARGV[0] et $ARGV[1].
N'emploie pas shift pour les récupérer car shitf() utilise par défaut @_, pas @ARGV.
Pour ton code, essaie ceci pour vouère :
$dossier = ($ARGV[1] ? $ARGV[1] : 'Dossier par défaut');
Autre présentation pour le même résultat :
1 2 3 4 5
| if ($ARGV[1]) {
$dossier = $ARGV[1];
} else {
$dossier = 'Dossier par défaut';
} |
Partager