Discussion :

[vince2005]

Bonjour,

je récupére des valeurs dans un tableau et je veux comparer la variable (chaine) $var_name avec "Params_file_component", si c'est égal, je l'écris dans le fichier, sinon rien.

et ça ne fonctionne pas, il ne trouve pas la chaine Params_file_component, alors qu'elle existe!!

si quelqu'un peut m'aider

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
 
 
sub PrintTrace {
    print StdOut (@_);
}
 
open(StdOut, ">debug3.out");
 
PrintTrace("+ Indication Parameters\n");
@keys = keys %IN;                      
@values = values %IN; 
 
 
while (@keys) {                         
    $var_name=pop(@keys);
    $size=length($var_name);
    $valeur=pop(@values);
 
	if ($varname eq "Params_file_component")
	{
	PrintTrace("+=====$var_name");
	}
 
        PrintTrace("=\t$valeur\n");
}
 
$OUT{Params_returnValue} = 0;
close (StdOut);

[Jedai]

Code :

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

$var_name=pop(@keys);

Code :

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

if ($varname eq "Params_file_component")

Tu n'as pas utilisé le pragma "strict" et tu t'en mords les doigts....

--
Jedaï