Discussion :

[mamax29]

Bonjour,

j'ai une script perl qui peut admettre un grand nombre d'argument:

script.pl -h
script.pl fichier1.txt
script.pl fichier1.txt fichier2.txt
script.pl fichier1.txt -y
script.pl fichier1.txt fichier2.txt -y
script.pl fichier1.txt -all
script.pl fichier1.txt fichier2.txt -all

Je n'arrive pas à m'en sortir... en utilisant les if/elsif/else

Y-a-t-il une solution plus pratique?

mamax

[djibril]

Comment récupérer proprement les arguments de la ligne de commande ?

[Beniou]

Bonjour,

Utilises le module Getopt::Long (http://search.cpan.org/~jv/Getopt-Lo...Getopt/Long.pm) pour parser tes options : tu verras ce sera beaucoup plus simple.
Tu peux même le coupler à Pod::usage (http://search.cpan.org/~marekr/Pod-P...b/Pod/Usage.pm) pour afficher une aide sur les options et les messages d'erreurs eventuels.

Sur les pages CPAN il y a quelques exemples , si cela ne te suffit pas recherche sur le site ou sur le net, ces modules foisonnent d'exemples

[mamax29]

Merci,

Cependant, je viens de vérifier sur mon serveur et le module Getopt n'est pas disponible.

[djibril]

Tu as quelle version de Perl ? Quel OS sur ton serveur ? Que te donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -MGetopt::Long -e ""

sur le terminal ?

[mamax29]

Ahh...

HPUX et perl 5.005_02
Et je n'ai pas la possibilité de faire une install de quoique ce soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
perl -MGetopt..Long -e ""
Can't locate Getopt/Long.pm in @INC (@INC contains: /opt/perl5/lib/5.00502/PA-RISC1.1 /opt/perl5/lib/5.00502 /opt/perl5/lib/site_perl/5.005/PA-RISC1.1 /opt/perl5/lib/site_perl/5.005 .).
BEGIN failed--compilation aborted.

[djibril]

Ahh...
perl 5.005_02

Je ne pensais pas qu'il y avait encore des serveurs tournant sur cette version. C'est de la préhistoire