Fonction eval + affichage de variable.

Version imprimable

Bonjour,
j'ai un fichier contenu dans une variable.
Je traite cette variable afin d'obtenir la syntaxe d'un hash. Voila la variable:

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
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 '{
  run0000 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
    W_P1 => "1.000000E-05",
    W_P3 => "1.000000E-05",
    W_P6 => "1.000000E-05",
    W_P8 => "1.000000E-05",
    a => "2.000000E+00",
    b => "3.000000E+00",
    c => "4.000000E+00",
    corner => "slow_ss",
    e => "5.000000E+00",
    f => "7.000000E+00",
    fin => "1.000000E+04",
    xxx2 => "1.000000E+00"
  },
  run0001 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
  xxx2 => "1.000000E+00"
  },
  run0002 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
    W_P1 => "1.000000E-05",
    W_P3 => "1.000000E-05",
    W_P6 => "1.000000E-05",
  xxx2 => "1.000000E+00"
  },
  run0003 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
  vstep => "5.000000E-01",
    xxx2 => "1.000000E+00"
}
}';

J'utilise alors la fonction eval afin d'acceder a certain element par la suite.
Cela a l'aire de fonctionner mais lorsque je veux afficher un element alors j'ai une erreur.
Voila ce que je fais :

Code:

1
2
3
my $hashref;
    $hashref = eval($content);
    print $hashref->{run0001}{Cdum} ;

et voila alors l'erreur :

Code:

1
2
3
Can't use string ("{
  run0000 => {
    Cdum => "2*") as a HASH ref while "strict refs" in use at /home/mercoiro/AVEdev/avenue/bin/avp2auditor.pl line 331.

En effectuant des recherches je crois avoir compris que ma variable n'est pas consideree comme un hash.
Pourtant quand je fais le test dans un code a part en declarant directement un hash de cette forme, la requete permettant d'obtenir un parametre fonctionne.

Voila, si quelqu'un pouvait m'aider je lui en serai tres reconnaissant.
Merci d'avance

c'est etrange, ton code marche chez moi.

tu as bien?

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
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
my $content= '{
  run0000 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
    W_P1 => "1.000000E-05",
    W_P3 => "1.000000E-05",
    W_P6 => "1.000000E-05",
    W_P8 => "1.000000E-05",
    a => "2.000000E+00",
    b => "3.000000E+00",
    c => "4.000000E+00",
    corner => "slow_ss",
    e => "5.000000E+00",
    f => "7.000000E+00",
    fin => "1.000000E+04",
    xxx2 => "1.000000E+00"
  },
  run0001 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
  xxx2 => "1.000000E+00"
  },
  run0002 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
    W_P1 => "1.000000E-05",
    W_P3 => "1.000000E-05",
    W_P6 => "1.000000E-05",
  xxx2 => "1.000000E+00"
  },
  run0003 => {
    Cdum => "2*Cload",
    Cload => "5.000000E-12",
    IBIAS => "1.000000E-05",
    L_N1 => "2.000000E-07",
    L_N3 => "2.000000E-07",
    L_N5 => "2.000000E-07",
    L_N7 => "2.000000E-07",
    L_P1 => "2.000000E-07",
    L_P10 => "2.000000E-07",
    L_P3 => "2.000000E-07",
    L_P6 => "2.000000E-07",
    L_P8 => "2.000000E-07",
    PSRR => "0.000000E+00",
    RLOAD => "1.000000E+07",
    W_N1 => "1.000000E-05",
    W_N3 => "1.000000E-05",
    W_N5 => "1.000000E-05",
    W_N7 => "1.000000E-05",
  vstep => "5.000000E-01",
    xxx2 => "1.000000E+00"
}
}';

Sinon pour verifier que tu as bien un certain type, tu as l'operateur: ref($content)
Elle retourne:
- SCALAR si tu as un scalaire
- ARRAY si tu as un tableau
- HASH si tu as un table de hachage
- faux si scalaire classique

10/10/2011, 15h56
Liiinz

Oui j'ai bien cela. Et en le declarant de la maniere dont tu as du le faire chez toi cela marche.
Mais le faite que je charge une fichier dans une variable, que j'effectue des transformations a cette variable afin de lui donner la syntaxe d'un hash me font croire que l'erreur doit venir de la.

La requete ref ne me renvoie rien...

Sinon mon erreur explique que ma variable $hashref n'a pas le bon type?
Ce qui colerait avec le fait que ref ne renvoi rien :?
11/10/2011, 08h40
hauru

Il doit voir ton $hashref comme un scalaire classique et non une reference vers un Hash (d'ou pas de retour par l'operateur ref).
11/10/2011, 09h06
Liiinz

Mais ce que je ne comprends pas , c'est que dans un programme seul a cote, cela marche tres bien, et ma variable est bien vu comme un hash...
Je ne vois pas ce qu'il cloche dans mon projet..
11/10/2011, 10h12
hauru

Il manque des elements pour pouvoir plus aider en details.

C'est possible d'avoir le code complet?
Initialisation du content, comment tu le modifie (le probleme vient surement de la), etc... ?

Ce n'est pas en transformant un scalaire pour qu'il ait la synthaxe d'un Hash, qu'il en devient forcement un.

De plus, les variables en perl peuvent changer de type.

Mon content contient un fichier ( a l'aide d'une fonction dont je te passe les details mais qui est fiable).
Voila alors ce que contient la variabe:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #HUGO $map = { run0000 => { Cdum => "2*Cload", RLOAD => "1.000000E+07", xxx2 => "1.000000E+00" }, run0001 => { Cdum => "2*Cload", Cload => "5.000000E-12", IBIAS => "1.000000E-05", xxx2 => "1.000000E+00" }, run0002 => { Cdum => "2*Cload", Cload => "5.000000E-12" } }; $params_to_subrun = { "Cdum=2*Cload,Cload=5.000000E-12,IBIAS=1.000000E-05,L_N1=2.000000E-07,L_N3=2.000000E-07,L_N5=2.000000E-07,L_N7=2.000000E-07,L_P1=2.000000E-07,L_P10=2.000000E-07,L_P3=2.000000E-07,L_P6=2.000000E-07,L_P8=2.000000E............................}; $subrun_to_params = { ...........................};
A quelques details pres bien sur ( plus de parametre dans les runs mais aussi plus de runs).

Voici alors ce que j'effectue:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 # Get rid of first rows $content =~ s/^#.*\n+//; # Remove excessive informations $content =~ s/;.*//gs; #remove map; $content =~ s/\$map = /'/; $content=$content. "';"; my $hashref; eval {'$hashref = ' . $content}; print " XXXXXXXXXXXXXXXXXXXXX = $hashref->{run0004}{Cdum} \n";
La premiere ligne du code c'est pour enlever le "#HUGO".
La deuxieme c'est pour enlever les "param ... subrun... ".
Ensuite je supprime le map pour inserer " ' ".

Voila du coup je ne vois pas ce qui est complique la dedans et donc ce qu'il cloche.
De plus je viens de verifier et content est bien un scalaire.

Merci a toi d'essayer de m'aider

EDIT : je viens d'alleger le code, c'est a dire que j'ai retirer les reverse qui ne sont plus utiles, le post est donc edite. Mais le probleme n'est pas resolu :s

Es-ce que le fichier contenant $map est un .pm?
Si tu fais un .pm cela simplifierai beaucoup la tâche.

Synthaxe de Nomfichier.pm (ajout 1ere et derniere ligne par rapport a ton $content)
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 package Nomficher; #premier ajout #HUGO $map = { run0000 => { Cdum => "2*Cload", RLOAD => "1.000000E+07", xxx2 => "1.000000E+00" }, run0001 => { Cdum => "2*Cload", Cload => "5.000000E-12", IBIAS => "1.000000E-05", xxx2 => "1.000000E+00" }, run0002 => { Cdum => "2*Cload", Cload => "5.000000E-12" } }; $params_to_subrun = { "Cdum=2*Cload,Cload=5.000000E-12,IBIAS=1.000000E-05,L_N1=2.000000E-07,L_N3=2.000000E-07,L_N5=2.000000E-07,L_N7=2.000000E-07,L_P1=2.000000E-07,L_P10=2.000000E-07,L_P3=2.000000E-07,L_P6=2.000000E-07,L_P8=2.000000E............................}; $subrun_to_params = { ...........................}"; 1; #deuxieme ajout
dans le programme principal:
Code:

1 2 3 require "chemin/Nomfichier.pm"; #ou require "Nomfichier.pm"; si dans le même dossier $Nomfichier::map; #Donne directement ta reference vers ton tableau
Ce que tu fais a l'air assez complique.
C'est normal vu tes modifications que tu ait un scalaire. Ton Hashref est donc une reference vers un scalaire. Tu ne peux donc pas faire: $hashref->{run0004}{Cdum}.

Pour creer un fichier tu peux passer par la fonction open.