Discussion :

[Premium]

Bonjour,

j'ai une table de hachage de ce style :

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
$VAR1 = {
          'Numero' => {},
          'Identite' => {
                        'Prenom' => {},
                        'Nom' => {}
                      },
          'TelephoneExpediteur' => '0612587458',
          'Coordonnee' => {
                          'Ville' => {},
                          'Adresse' => {
                                       'Rue' => {},
                                       'NomAdresse' => {}
                                     },
                          'CodePostal' => {}
                        },
          'Email' => {},
          'Telephone' => {}
        };

J'aimerai savoir comment parcourir ma table de hachage de sorte qu'en lui donnant la clé dont la valeur doit être modifiée, c'est ce qui est fait.
Par exemple si la fonction se nomme modif_cle et que je passe en parametre :
modif_cle Rue 35
la table sera

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
$VAR1 = {
          'Numero' => {},
          'Identite' => {
                        'Prenom' => {},
                        'Nom' => {}
                      },
          'TelephoneExpediteur' => '0612587458',
          'Coordonnee' => {
                          'Ville' => {},
                          'Adresse' => {
                                       'Rue' => 35,
                                       'NomAdresse' => {}
                                     },
                          'CodePostal' => {}
                        },
          'Email' => {},
          'Telephone' => {}
        };

Merci

[iblis]

Un truc récursif, du genre:

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
use Data::Dumper;
 
sub mod {
	(my $var, my $key, my $value) = @_;
	for (keys %$var) {
		if ( $_ eq $key) {
			$$var{$key} = $value;
			return;
		}
	 	if ( ref($$var{$_}) eq 'HASH' ) {
			mod($$var{$_}, $key, $value);
		}
	}
}
 
mod($VAR1, 'Rue', 35);
print Dumper($VAR1);

Le truc, c'est de tester si on a à faire à une branche ou à une feuille terminale, d'où le recours à ref(). Y a sûrement mieux mais ça marche et c'est pas une démarche tordue. Ah oui, j'ai supposé qu'il n'y a qu'une clé à modifier (sinon, il suffit d'enlever le return).