Discussion :

[donny]

salut,

J'ai un script dans lequel je passe en parametre de ma fonction un tableau defini plus dans le script.

Code :

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

1
2
3
4
5
6
7
8
9
10
my @montableau = ( ...);
...
sub mafonction {
 
my @montab = shift;
...
}
..
#appel de ma fonction
&mafonction (@montableau);

ma fonction tourne mais s'arrete, elle ne renvoit que le premiere element du tableau.

Je ne comprend pas ???


Merci

[2Eurocents]

C'est un comportement tout à fait normal.

shift récupère la première valeur du tableau des paramètres (@_) et la transmet dans la variable qu'on lui indique avant de la supprimer de la liste. shift ne va jamais récupérer plus que ça à la fois ...

Le tableau étant "aplati" lors de son passage à la fonction, @_ contient tous les éléments du tableau, un par un. Il faut donc tous les récupérer.

Pour cela, soit on fait une suite d'affectation avec plein de shift, mais ce n'est pas très efficace/pertinent, soit on récupère tout d'un coup :

Code :

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

1
2
3
4
5
sub mafonction {
 
my @montab = @_;
...
}

[donny]

ça fonctionne merci
je ne savais pas que shift retournait seulement la premiere valeur
Merci.

[donny]

donc pour un tableau on declare comme cela
my @tab = @_;

et pour une hash
c'est comme cela :
my %hash = %_ ??


Merci

[MarneusCalgarXP]

Non, c'est juste que @_ est un tableau qui contient les paramètres passés à la sub...

Si tu passes une hash à la méthode, elle sera stockée dans le tableau @_...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub test(%$)
{
    my (%hash, $string) = @_;
   ... code ...
}
 
my %var_hash = ();
my $var_string = "yes";
&test(%var_hash, $var_string);

[donny]

j'ai essayer mais sa ne fonctionne pas
quand j appel mon hash je n 'ai rien à part des message d'erreurs

[MarneusCalgarXP]

Effectivement, j'avais fait une erreur, j'avais mis "my" devant sub... J'ai corrigé à présent !

[donny]

moi je n'ai pas mis my devant sub et sa bogue
je comprend pas pourquoi t'utilise $string ??

[MarneusCalgarXP]

C'était juste pour te montrer un exemple en passant plusieurs variables... Et le "... code ... " signifie que tu dois mettre ton code, ca ne fonctionne pas sans modif. Si tu préfères passer juste une hash, voici un exemple complet et fonctionnel:

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
use strict;
use warnings;
 
sub test(%)
{
    my (%hash) = @_;
    # ... code ...
    print( $hash{'toto'} . "\n" );
}
 
my %var_hash = (
  # on remplit la hash...
  'toto' => 'titi'
);
 
&test(%var_hash); # affiche "titi"

[donny]

je pense que c'est plus compliqué que sa
il y a une histoire de reference

[GnuVince]

je pense que c'est plus compliqué que sa
il y a une histoire de reference

Si tu utilises pas de prototypes pour des fonctions, tu dois en effet envoyer une référence à un hash:

Code :

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

1
2
3
4
5
6
 
sub foo {
  my ($hash_ref, $string) = @_;
}
 
foo({ foo => "bar" }, "bonjour");

Par contre, si ma mémoire ne me trompe pas bien sûr, avec un prototype, tu peux faire comme suit:

Code :

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

1
2
3
4
5
6
7
 
sub foo(%$) {
  my (%hash, $string) = @_;
}
 
my %hash = ( foo => "bar" );
foo(%hash, "bonjour");

Je devrai vérifier avec mon camel book, mais il me semble que c'est exact. Il faut dire que j'utilise quasiment jamais les prototypes, je préfère passer des références.

[MarneusCalgarXP]

Tu parles de quoi au juste ? Si ce que tu veux, c'est passer une hashmap en paramètre, essaye mon programme, il fonctionne... Après, si tu veux passer une hashmap par référence, c'est possible aussi !

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
use strict;
use warnings;
 
sub test(\%)
{ 
	my ($hashRef) = @_;
	# ... code ...  
	print( $$hashRef{'toto'} . "\n" ); 
}
 
my %var_hash = (  
    # on remplit la hash...  
    'toto' => 'titi' 
);
 
&test(\%var_hash); # affiche "titi"