Gestion efficasse des arguments

Version imprimable

11/05/2010, 16h04
mamax29

Gestion efficasse des arguments

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
11/05/2010, 16h13
djibril

Comment récupérer proprement les arguments de la ligne de commande ?
11/05/2010, 16h14
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
11/05/2010, 16h19
mamax29

Merci,

Cependant, je viens de vérifier sur mon serveur et le module Getopt n'est pas disponible.
11/05/2010, 16h20
djibril

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

Code:

perl -MGetopt::Long -e ""

sur le terminal ?

Ahh...

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

Code:

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.

11/05/2010, 16h32
djibril

Citation:

Envoyé par mamax29

Ahh...
perl 5.005_02

8O8O8O8O8O Je ne pensais pas qu'il y avait encore des serveurs tournant sur cette version. C'est de la préhistoire :aie:
11/05/2010, 16h44
mamax29

Oui, et encore sur le parc des serveurs, celui là est récent. :lol::lol::lol:

Bon, je vais essayer de me dépatouiller de cela différemment
11/05/2010, 17h02
Beniou

Solution pas très jolie mais peut être que cela pourrait t'aider : tu peux regarder le source du module Getopt::Long et t'en inspirer pour créer tes propres fonctions de parsing au sein de ton script voire l'inclure pour pouvoir l'utiliser sans l'installer...

Salut, je suis aussi débutant en perl, alors ce que je dis ne vaut certainement pas grand chose.

En perl les fonctions peuvent prendre un nombre illimité d'arguments.
C'est dans la fonction qu'on fait le tri. (enfin c'est comme ca que je fais ^^)

Quoi qu'il en soit, tu dois certainement attendre un certain type d'argument, même si leur nombre varie (en fonction d'un autre argument par exemple).

Pour être concret: une fonction qui prend 1 ou 2 arguments en fonction du premier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
sub SUB_Take_Arg
{
  my $Mode = shift; #le premier argument va permettre de savoir ce que l'on doit faire.
 
  my $Optionel1 = shift; #2 arguments optionnels (en fait le premier ne l'est pas ...)
  my $Optionel2 = shift;
 
 #vérifie que le premier au moins est la
 unless(defined($Mode)){
    # manage le cas ou le premier n'est pas la.
    # en général j'écris dans mon log et je retourne -1.
 }
 
  # maintenant on arrive a ton problème
  if ($Mode == 1) {# ou tout ce que tu veux ...
    # dans ce cas on imagine que seul un autre argument est attendu.
    unless(defined($Optionel1 )){
        # manage le cas ou le premier n'est pas la.
        # en général j'écris dans mon log et je retourne -1.
    }
  } else {
    # dans ce cas on imagine que les 2 arguments sont attendu.
    unless(defined($Optionel1 )){
        # manage le cas ou Optionel1  n'est pas la.
        # en général j'écris dans mon log et je retourne -1.
    }
    unless(defined($Optionel2 )){
        # manage le cas ou Optionel2 n'est pas la.
        # en général j'écris dans mon log et je retourne -1.
    }
  }
  # alors ou je n'ai pas trop travaillé cette réponse, 
  # et le test du premier argument optionnel serait bien mieux avant le if ^^
  # sory
 
}

Est ce cela ton problème?

13/05/2010, 14h19
Jedai
Citation:

Envoyé par Beniou

Solution pas très jolie mais peut être que cela pourrait t'aider : tu peux regarder le source du module Getopt::Long et t'en inspirer pour créer tes propres fonctions de parsing au sein de ton script voire l'inclure pour pouvoir l'utiliser sans l'installer...

Tout à fait, a priori Getopt::Long semble compatible avec Perl 5.4 donc tu ne devrais pas avoir de problème, télécharge juste la source du module (à cette adresse ) et met la à un emplacement accessible depuis ton script (par exemple ./lib/Getopt/Long.pm) et ensuite rajoute cet emplacement à @INC puis charge Getopt::Long normalement :
Code:

1 2 3 4 BEGIN { unshift 'path/to/your/script/lib', @INC; } # normalement "use lib 'path/to/your/script/lib''" serait mieux, mais je ne suis pas sûr que Perl5.5 le supporte use Getopt::Long;
Ça devrait marcher.

(Par ailleurs ta version de Perl a 12 ans et n'est même pas la dernière mise à jour de Perl 5.5... C'est horriblement dangereux d'un point de vue sécurité et très inférieur d'un point de vue capacité par rapport au Perl 5.12 actuel, par exemple la gestion de l'UTF-8 etait inexistante avant Perl 5.6 (qui a déjà 10 ans), tu devrais pester auprès de ton sysadmin)

--
Jedaï
17/05/2010, 11h52
Philou67430
Code:

1 2 3 $ corelist Getopt::Long Getopt::Long was first released with perl 5
J'aurais eu tendance à dire qu'il était dans le core depuis la version 5.000.* :koi: