Discussion :

[zonttt]

Bonjour, j'ai un soucil pour passer des arguments a une fonction (init()) d'un package (setSetting.pm). Je parviens a passer 1 argument depuis mon programme principal(testPackage.pl ) jusqu'a la fonction du package, par contre avec 2 arguments, j'obtiens l'erreur suivante:

Too many arguments for setSetting::init at testPackage.pl line 6, near "$setting)"
Execution of testPackage.pl aborted due to compilation errors.


L'appel de la fonction est le suivant:

Code :

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

my $choice=setSetting::init( $task, $setting);

J'ai essayé d'utiliser des reférences pour passer les valeurs en arguments mais cela ne change rien du tout!
Merci d'avance

[Arioch]

Bonjour,

peux-tu nous monter le contenu de ta fonction init( ) du package setSetting stp ?

[zonttt]

Code :

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

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 init($$){
local ($setting,$task) = @_;
#local $setting = shift;
#local $task = shift;
#eval "require $task";
 
local %settings = map { $_->getName => $_ } $task->getTaskSettings();
 
local $defaultVal = $settings{$setting}-> getDefault;
 
local $desc = $settings{$setting}-> getDescription;
 
local $type = $settings{$setting}-> getType;
local $settingName = $settings{$setting}-> getName;
 
local $mandatory = $settings{$setting}-> isMandatory;
 
local @values = $settings{$setting}-> getValues;
local $choice=$defaultVal;
local %choices;
 
 
my $mw = new MainWindow(-bg => 'alice blue');
$mw -> title( 'Demonstrator: Set Settings -Wotan2.2' );
$mw->fontCreate("lucida_hold", -family=>'lucida', -size=>'10', -weight=>'bold');
$mw->fontCreate("lucida", -family=>'lucida', -size=>'12');
$mw->minsize(350,100);
 
if($type eq 'text'){popText();}
if($type eq 'file'){popFile();}
if($type eq 'singleValue'){popSingleValue();}
if($type eq 'multiValue'){popMultiValue();}
MainLoop();
my @err = $settings{$setting}->validateValues($choice);
if(defined $err[0]){print "@err\n";}
return ($choice);
}

[Jasmine80]

Pourrais-tu utiliser les balises codes s'il te plait?

Code :

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

sub init($$){

Il vaut mieux ne pas utiliser les prototypes ($$)

Code :

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

sub init {

[zonttt]

Désolé, je ne savais pas pour les balises.....
Sinon j'ai enlevé l'utilisation des prototypes:

Code :

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

1
2
sub init(){
local ($setting,$task) = @_;

Mais cela n'a strictement rien changé......

[Jedai]

Relis le code proposé par Jasmine et le tien... N'y a-t-il pas une différence dans la déclaration de la fonction ?
Et arrête d'utiliser les prototypes, il s'agit d'une fonctionnalité avancée qui n'est pas du tout faites pour contrôler le nombre d'arguments d'une fonction par exemple.

--
Jedaï