remplir une table hash

Salut a tous, je viens de debuter en Perl.
Je dois reperer les lignes dessous dans un fichier, mettre la valeur du premier champ dans une table hash

Citation:

---

Total Power = 2.287e-04 (100.00%)

Totals (5 cells) 1.794e-05 1.349e-05 4.167e-09 3.144e-05 (100.0%)

Total (5 nets) 1.071e-06 Watt

---

voici mon script:

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

my %table ; open(IN2, "$file_pt2") or die "Cannot Open file $file_pt1\n"; while ($ligne = <IN2>) { if ($line =~ m/Total\s+\w+\s+\=\s+(\d+\.\d+\w+\-\d+)/) { print "$line\n"; $table{Total_Power} = $1 ; } if ($ligne =~ m/Totals\s+/) { print ("$ligne \n"); $table{Total_Power_net} = $1 ; } if ($ligne=~ m/Total\s+/) { print ("$ligne \n"); $table{Totals_Power_cell} = $1 ; } }   foreach my $inst (sort keys(%table)) { print "$inst => $table{$inst}","\n"; }   close IN2;

---

voici le resultat de la simulation:

Citation:

---

Total_Power => 2.287e-04

---

je ne parviens pas afficher le reste de la hash table, et ce peu importe le champ.

Alors quelqu'un aurait -il une idee pour resoudre mon probleme?
Merci
PS: desole pour l'absence d'accent, j'ecris d'un qwertz

tout d'abord, si ce n'est pas déjà fait je te conseille de débuter tes scripts par

Code:

---

1 2	use strict; use warnings;

---

ensuite veille à tes noms de variables, $line/$ligne, $file_pt1/$file_pt2 (fautes de recopie ?)

enfin le problème semble être au niveau du $1, dont tu n'as pas parfaitement saisi l'emploi
je te conseille ce passage de la :faq:

bon courage !

Merci pour ta reponse.

De ce que j'ai compris de la faq, si je veux reperer la ligne ci dessous dans mon rapport:

Total (5 nets) 1.071e-06 Watt

et mettre la valeur 1.071e-06 dans sa hash table
$table{Total_Power_net} = $1 avec $1 correspondant a 1.071e-06 , mon code devrait ressembler a ca:

use strict;
use warnings;

my %table ;
open(IN2, "$file_pt2") or die "Cannot Open file $file_pt2\n";
while ($ligne = <IN2>)
{
if ($j =~ /\s+(\d+)\s+\Watt/) # je repere la portion 1.071e-06 Watt

{
print ("$j \n");
$table{Total_Power_net} = $1 ;
}
}
close IN2;

Mais cela marche pas :piou: je parviens pas retrouver la ligne avec cette synthase.

Cependant avec les synthases $j =~ /Watt$/ ou $j =~ /Total/ je retrouve la ligne mais cela est intule puisque je recupere pas le $1.

Autre souci, meme avec $j =~ /s+\Watt/ je recupere pas la ligne :?

alors oui ça marche mais c'est améliorable

que penses-tu de celle-là:

Code:

---

\s+(\S+)\s+Watt$

---

?

J'ai trouve la bonne synthase pour Total (5 nets) 1.071e-06 Watt

if ($j =~ m/Total\s+\(\d+\s+\w+\)\s+(\d+\.\d+\w+\-\d+)/)
{
print ("$j \n");
$table{Total_Power_net} = $1 ;
}

avec celle la je recupere $1, mais comme dans mon rapport les lignes typees

Total (5 nets) 1.071e-06 Watt

J'en ai trois, ma table ne retient que le $1 de la derniere. Je vais tente une boucle For pour conserver tous les $1.
Au passage les lignes concernees sont :

Total (5 nets) 1.349e-05 Watt
Total (5 nets) 4.927e-06 Watt
Total (5 nets) 1.071e-06 Watt

tu ne retiens la dernière valeur que parce que

Code:

---

$table{Total_Power_net} = $1 ;

---

écrase la valeur précédente.

il te faut donc stocker correctement, pour ça tu as le choix: une liste, une somme, une chaîne de caractère que tu agrandis, etc, suivant l'utilisation que tu veux en faire.

Re coucou

j'ai toujours de meme probleme. Je ne vois pas comment integrer un liste a ma hash table

voici mon code

use strict;
use warnings;

my @liste = ();
my %table ;
open(IN2, "$file_pt2") or die "Cannot Open file $file_pt2\n";
while ($ligne = <IN2>)
{

if ($j =~ m/Total\s+\(\d+\s+\w+\)\s+(\d+\.\d+\w+\-\d+)/)
{
print ("$j \n");
$table{Total_Power_net} = $1 ;
push(@liste,$1);
print ("$liste \n");
}

}
close IN2;

Code:

---

push @{$hash{$key}}, $value;

---

si la liste n'existe pas, elle sera créée la première fois que tu appelles cette ligne.

n'hésite pas à chercher dans les forums et faq