Bonjour,
comment récupérer TOUTES mes clés et valeur?
merci par avance
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);
Partager