Substitution variables dans hash

**Jeh** · 16/06/2006, 12h35

Voilà mon petit problème : je cherche à substituer dans un hash (issu d'un fichier xml) des variables. Concrètement :

j'ai des valeurs dans mon hash :

Code :

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

1
2
3
4
5
6
7
 
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => '$num_carte/$num_acces'
}

Et je veux substituer $num_carteet $num_accesavec les valeurs présentes dans le hash.
ça fonctionne très bien dans le cas d'une variable seule, par exemple :

Code :

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

1
2
3
4
5
6
7
 
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => '$num_carte'
}

qui devient

Code :

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

1
2
3
4
5
6
7
 
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => 4
}

Mais avec mon premier exemple, ça ne fonctionne pas bien...
Avec la regexp

Code :

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

$structure->{$cle} =~ s/\$(\S+?)[^\S]?/$valeurs->{$1}/g;

J'ai le résultat suivant :

Code :

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

1
2
3
4
5
6
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => 'um_carte/um_acces'
}

Et avec

Code :

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

$structure->{$cle} =~ s/\$(\S+?)\//$valeurs->{$1}/g;

J'ai évidemment :

Code :

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

1
2
3
4
5
6
7
 
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => '4/$num_acces'
}

Quelqu'un pour m'aider sur la regexp ?

**Arioch** · 16/06/2006, 12h40

Réponse peut être précipitée mais si tu fais ceci, qu'est-ce que ça donne ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my $hash = {
                  'num_carte'   => 4,
                  'num_acces'  => 1,
                  ....
                  'interface'   => '$num_carte/$num_acces'
}
 
# pour afficher "4/1" :
$hash{interface} = "$hash{num_carte}/$hash{num_acces}";
 
# si c'est pour produire le résultat de 4 / 1 :
$hash{interface} = $hash{num_carte}/$hash{num_acces};

**Jeh** · 16/06/2006, 12h45

Merci pour ta réponse.
Ce que je veux, c'est bien une chaine de caratères, pas le résultat de la division.
Ta solution pourrait être bonne si je connaissais si les variables à substituer étaient à chaque fois les mêmes, mais ce n'est pas le cas, je veux substituer toutes les variables de ma structure sans exception.
En fait, je parcours ma structure (récursivement) comme un arbre et je substitue les feuilles si je trouve des variables.
Il s'agit juste d'une problème de regexp mais j'ai un peu de mal à m'en tirer...

**Arioch** · 16/06/2006, 12h49

J'ai du mal à comprendre.

S'agit-il d'un hash simple contenant juste une paire de clés/valeurs ou bien est-ce plus un hash de hash ?

Et pour tes deux clés 'num_carte' et 'num_acces', est-ce bien ces clés là, nommées telles quelles, dont tu cherches la valeur pour alimenter ta clé 'interface' ?

Désolé, j'avoue avoir du mal à comprendre pourquoi tu es obligé de passer par une regexp. Si c'est un hash de hash, une boucle foreach et zouuuuuu, roule ma poule

**Jeh** · 16/06/2006, 12h58

Envoyé par Arioch

J'ai du mal à comprendre.

S'agit-il d'un hash simple contenant juste une paire de clés/valeurs ou bien est-ce plus un hash de hash ?

Et pour tes deux clés 'num_carte' et 'num_acces', est-ce bien ces clés là, nommées telles quelles, dont tu cherches la valeur pour alimenter ta clé 'interface' ?

Désolé, j'avoue avoir du mal à comprendre pourquoi tu es obligé de passer par une regexp. Si c'est un hash de hash, une boucle foreach et zouuuuuu, roule ma poule

- il s'agit d'un hash de hash
- dans le cas de la clé 'interface', il s'agit bien des cles 'num_carte' et 'num_acces', mais je ne vais pas m'amuser à coller obligatoirement à chaque structure pour faire ces substitutions, ce que je veux, c'est avoir un code qui puisse s'adapter à toute structure de hash. Et je suis juste embêté pour substituer une variable du type de '$num_carte/$num_acces' car pour toutes les autres variables '$num_carte' ou '$toto', je n'ai pas de souci avec la regexp simple :

Code :

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

$structure->{$cle} =~ s/\$(\S+)/$valeurs->{$1}/g;

Pour être plus précis, j'ai les tables suivantes en entreé de ma fonction 'SubstituerLesVariables' :
1) la table pour les valeurs

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
$VAR1 = {
          'acces_loc' => '4',
          'dna_dist' => '2080555555555',
          'num_carte_loc' => '4',
          'cos_loc' => 'LAN OPTION PRENIUM',
          'scenario' => 'ADD_PROD_DLCI',
          'CIR_loc' => '1024',
          'FrSize_loc' => '2200',
          'Dlci_dist' => '111',
          'lar_loc' => '1920',
          'nortel_loc' => 'BRNN1',
          'chanel_loc' => '',
          'Dlci_Loc' => '110',
          'E10_loc' => ''
        };

2) la structure dans laquelle je dois substituer les variables à partir des valeurs de la table 1 :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
$VAR1 = {
          'OPERATION_CODE' => 'NORTEL_CREATION_DLCI_MASSE',
          'COMMENTARY' => 'operation lancee sur $nortel_loc',
          'OPT_PARAMS' => {
                            'acces_loc' => {
                                             'LIB_EXCEL' => 'Port1',
                                             'DEFAULT_VALUE' => {}
                                           },
                            'Type_loc' => {
                                            'LIB_EXCEL' => {},
                                            'DEFAULT_VALUE' => 'MASTER'
                                          },
                            'dna_dist' => {
                                            'LIB_EXCEL' => 'dna_dist',
                                            'DEFAULT_VALUE' => {}
                                          },
                            'num_carte_loc' => {
                                                 'LIB_EXCEL' => 'Noli1',
                                                 'DEFAULT_VALUE' => {}
                                               },
                            'cos_loc' => {
                                           'LIB_EXCEL' => 'COS1',
                                           'DEFAULT_VALUE' => 'LAN OPTION PREMIUM'
                                         },
                            'CIR_loc' => {
                                           'LIB_EXCEL' => 'CIR1',
                                           'DEFAULT_VALUE' => {}
                                         },
                            'FrSize_loc' => {
                                              'LIB_EXCEL' => '2200a',
                                              'DEFAULT_VALUE' => {}
                                            },
                            'Dlci_dist' => {
                                             'LIB_EXCEL' => 'DLCI2',
                                             'DEFAULT_VALUE' => {}
                                           },
                            'lar_loc' => {
                                           'LIB_EXCEL' => 'LAR1',
                                           'DEFAULT_VALUE' => {}
                                         },
                            'nortel_loc' => {
                                              'LIB_EXCEL' => 'CM1',
                                              'DEFAULT_VALUE' => {}
                                            },
                            'chanel_loc' => {
                                              'LIB_EXCEL' => 'Canal1',
                                              'DEFAULT_VALUE' => {}
                                            },
                            'Dlci_Loc' => {
                                            'LIB_EXCEL' => 'DLCI1',
                                            'DEFAULT_VALUE' => {}
                                          },
                            'nortel_ref' => {
                                              'LIB_EXCEL' => {},
                                              'DEFAULT_VALUE' => '$nortel_loc'
                                            },
                            'dna_loc' => {
                                           'LIB_EXCEL' => 'dna_loc',
                                           'DEFAULT_VALUE' => {}
                                         },
                            'E10_loc' => {
                                           'LIB_EXCEL' => 'E1_1',
                                           'DEFAULT_VALUE' => {}
                                         }
                          },
          'NB_COMPOSANTS_TOUCHES' => '2',
          'TYPE_COMP' => {
                           'TRSIFPE.NATURE' => '1',
                           'PE.HOSTNAME' => '$nortel_loc',
                           'COMPONENT_TYPE' => 'PE interface',
                           'TRSIFPE.NAME' => '$num_carte_loc/$acces_loc'
                         },
          'name' => 'ADD DLCI UNI (MASSE)'
        };

Le code de ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub SubstituerLesVariables {
 
	my ($valeurs,$structure) = @_;
	foreach my $cle (keys (%$structure)) {
		if (ref ($structure->{$cle}) =~ /HASH/) {# on suit la branche
			 SubstituerLesVariables($valeurs,$structure->{$cle});
		} else { # on substitue la feuille si besoin
			 $structure->{$cle} =~ s/\$(\S+?)\//$valeurs->{$1}/g;
		}	
	}
}

**Mr6** · 16/06/2006, 13h37

à tout hasard, si tu fais :

Code :

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

$structure->{$cle} =~ s!\$([\w_]*)!$valeurs->{$1}!g;

Voilà, ca m'a l'air mieux pour ce que tu veux, non ?

**Jeh** · 16/06/2006, 15h11

Envoyé par Mr6

à tout hasard, si tu fais :

Code :

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

$structure->{$cle} =~ s!\$([\w_]*)!$valeurs->{$1}!g;

Voilà, ca m'a l'air mieux pour ce que tu veux, non ?

Waaahou !! C'est magique !!

J'avais pas pensé au '\w'...

Je ne savais que l'on pouvait utiliser des '!'...
ça a une signification différente des '/'.

**Mr6** · 16/06/2006, 15h15

non, c'est juste que tu choisis ce que tu veux comme séparateur

tu aurais aussi pu mettre des # par exemple

**lami20j** · 16/06/2006, 15h17

Salut,

Envoyé par Mr6

à tout hasard, si tu fais :

Code :

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

$structure->{$cle} =~ s!\$([\w_]*)!$valeurs->{$1}!g;

Voilà, ca m'a l'air mieux pour ce que tu veux, non ?

Pourquoi

Code :

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

([\w_]*)

?!
Ca ne suffit pas

Code :

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

(\w*)

?
\w est équivalent avec [a-zA-Z0-9_], mais vous le savez déjà

.

lami20j

**Mr6** · 16/06/2006, 15h22

me rappelais plus que le "_" était compris dans \w

Substitution variables dans hash

Langage Perl

Discussions similaires

Partager

Partager