Discussion :

[ggnore]

Bonjour,

j'essaie d'envoyer un morceau de hash dans une fonction sans succès :

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
#!/usr/bin/perl
use warnings;
use strict;
 
my %connstring = (
        poller =>       {
                        ip      =>      "xx.xx.xx.xx",
                        login   =>      "monlogin",
                        password=>      "xxx",
                        },
 
        radius =>       {
                        ip      =>      "xx.xx.xx.xx",
                        login   =>      "badlogin",
                        password=>      "badpassword",
                        },
);
 
sub recup_subhash {
        my %subhash = @_;
        printf ( "\nip:". $subhash{ip});
}
 
recup_subhash( @connstring{ 'poller' } );

Mais ça ne veut pas :

$ ./param_bout_hash.pl
syntax error at ./param_bout_hash.pl line 27, near "%connstring{ "
Execution of ./param_bout_hash.pl aborted due to compilation errors.

Merci d'avance de me sortir de ce mauvais pas.

[ggnore]

Et la solution (merci grab76):

Code :

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

1
2
3
4
5
6
7
 
sub recup_subhash {
        my $subhash = shift;
        printf ( "\nip:". ${$subhash}->{ip});
}
 
recup_subhash( \$connstring{radius});

[Philou67430]

Dans cette ligne :

Code :

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

recup_subhash( \$connstring{radius});

Le \ n'est pas nécessaire, car $connstring{radius} est déjà une référence.

Du coup dans cette ligne :

Code :

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

printf ( "\nip:". ${$subhash}->{ip});

Le double déréférencement n'est plus nécessaire :

Code :

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

printf ( "\nip:". $subhash->{ip});

L'autre solution, qui était la tienne à l'origine, c'est de passer le sous-hash et non sa référence. Dans ton code initial, seule la ligne

Code :

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

recup_subhash( @connstring{ 'poller' } );

contenait une erreur. Il fallait écrire :

Code :

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

recup_subhash( %{$connstring{ 'poller' }} );

L'avantage de cette dernier solution (passage par valeur), est que ta fonction recup_subhash n'a aucun risque d'avoir d'effet de bord sur la variable $connstring, ce qui n'est pas le cas de la version avec réféfences.