passage d'arguments dans un package

Version imprimable

24/02/2009, 11h07
zonttt

passage d'arguments dans un package

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:

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
24/02/2009, 11h39
Arioch

Bonjour,

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

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 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);
}

24/02/2009, 12h54
Jasmine80

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

Code:

sub init($$){

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

Code:

sub init {
24/02/2009, 13h34
zonttt
Désolé, je ne savais pas pour les balises.....
Sinon j'ai enlevé l'utilisation des prototypes:
Code:

1 2 sub init(){ local ($setting,$task) = @_;
Mais cela n'a strictement rien changé......
24/02/2009, 15h28
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ï