Bonjour,

comment récupérer TOUTES mes clés et valeur?

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
while (my $line = <DATA>) {
    chomp($line);
    if($line =~ /^>/){
	$nom=$line;
	$count ++;
	#print("$nom\n");
    }
    else{
	$sequence=$line;
	#print("$sequence\n");
    }
    %hash=($nom=>$sequence);
 
}
 print("nb count: $count\n");
 
 
foreach my $t (keys%hash){
    print  "clé: $t\nvaleur: $hash{$t}\n";#verif
}
 
 
close(DATA);
merci par avance