Utiliser paramètres passés en ligne de commande

Bonjour,

Je bute depuis plusieurs jours sur l'utilisation de paramètres passés via une ligne de commande. J'ai erré sur beaucoup de forum en vain.

Je lance ce code appelé "essai.pl" avec la ligne de commande suivante :

perl essai.pl --backupfile NomDeMonFichierDeBackup

Ce code est juste sensé afficher la valeur "NomDeMonFichierDeBackup" entrée en paramètre. Or, quoi que je fasse rien n'apparaît (même pas une erreur). Sauriez vous comment manipuler les données entrées en paramètre s'il vous plaît ? Merci par avance.

Ci-joint mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

use Getopt::Declare;   my $specification; my $args; my $a;   $specification = q( -backupfile <backupfile:s> if exist will be used, if not will be create );   $args = Getopt::Declare->new($specification,[-BUILD]); $a = $args->{'-backupfile'}{'<backupfile>'}; print "Nom du fichier de backup = $a \n";

---

Regarde notre FAQ, tu auras la réponse toute faite.

D'abord, supprime l'option [-BUILD], puisqu'avec cette option, le constructeur ne parse pas automatiquement les arguments de la ligne de commande (il faut appeler le parseur manuellement).

Ensuite, je lancerais la commande suivante (-backupfile et non --backupfile) :

Code:

---

perl essai.pl -backupfile NomDeMonFichierDeBackup

---

Enfin, pour la dernière erreur, je cherche encore, étant plutôt habitué à l'usage de Getopt::Long.

J'ai trouvé la solution à mon problème.

Djibril> En fait, j'avais déjà utilisé cette méthode mais il me fallait pouvoir afficher une aide lorsqu'on tape "-h" dans la commande. Donc il me fallait forcément "getopt::declare".

voici ma solution au cas où d'autres tomberaient sur cet os :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

use Getopt::Declare;   my $specification; my $args; my $a; my $backupfile;   $specification = q{ -backupfile <backupfile:s> [etc] if exist will be used, if not will be create };   $args = Getopt::Declare->new($specification); $a = $args->{'-backupfile'}{'<backupfile>'}; print "Nom du fichier de backup = $a \n";

---

Merci de vous être penché sur mon cas.

Bonjour,

Pour utiliser l'aide, tu n'es pas obligé d'utiliser l'autre module ;) !
Il faut juste utiliser Pod::Usage en complément.
Je ferais une QR ou un article sur le sujet dès que j'aurais du temps.

niavlys77, hormis l'option -BUILD que tu as supprimée, peux-tu préciser si tu as corrigé autre chose ? (car chez moi, cette seule correction ne m'a pas permis de faire fonctionner ce bout de code). Notamment, peux-tu préciser comment tu as appelé le script ?