Discussion :

[Hypnocrate]

Bonjour,

Je rencontre des problèmes avec la fonction getoptions:
J'aimerais avoir une seule option qui prend 2 arguments et appelle une sub routine.
Le problème est que la subroutine est appelé deux fois (une fois par argument).

Code :

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

1
2
3
4
5
6
7
8
9
10
 
use Getopt::Long;
sub test
{
    print @_;
    print "\n";
}
 
 
GetOptions('test=s{2}' => sub{ test(@_) } );

$./test.pl --test 2 3
test2
test3

Comment faire pour que la subroutine ne soit appelé qu'une seule fois?

[djibril]

Que veux tu qu'il print ? Tu peux faire ceci :

Code :

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

1
2
3
4
 
my @Arguments;                                                                                                                                   
GetOptions('test=s{2}' => \@Arguments );
test(@Arguments);

[Hypnocrate]

Je veux juste que getoptions appelle la bonne subroutine (avec les bons parametres) lorsqu'il reçoit l'option voulue.
Ici j'ai fait des print pour simplifier le code mais la subroutine sera plus complexe que ça.

[djibril]

bah je pense pas que tu puisses contourner le fait que la procédure ne soit appelée à chaque argument, je n'ai pas lu la doc du module, mais bon.
Soit tu fais comme je t'ai dit ci-dessus. Ou bien ton script peut etre appelé ainsi :

Code :

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

GetOptions('test=s{2}' => sub{ test(@_) } );

$./test.pl -test "2 3"

[Hypnocrate]

OK merci.

[thierry.chich]

C'est la façon dont tu appelles ta fonction qui ne va pas. Quand tu fait

Code :

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

1
2
3
4
5
6
7
8
9
10
 
use Getopt::Long;
sub test
{
    print @_;
    print "\n";
}
 
GetOptions('test=s{2}' =>\@param);
test(@param);

tout rentre dans l'ordre.