bonsoir tous le monde
desoler de vous déranger mais j'ai besoin encore de l'aide svp
j'ai mon script pour faire un hash de tableaux à partir d'un fichier j'ai rempli mon hash normalement au début mais aprés je me suis appercu qu'il ya des cles qui se ressemble dans la ligne 135, 900 , et 947 je crois alors j'ai changé le motif mais j'ai perdu les valeurs de chaque cles , y'a plus de valeurs dans chacune des clés je vois pas ou est le probleme voilà mon code actuellementmerci 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 @liste = grep {$_=~m/^T\d+|^###\s/}@taxonomy; my (%table_hash,$clades); my ($esp,$d); for (@liste){ if ($_ =~m/^###\s(\w+\s*\w*\s?\w*)/) {$d=0;$clades=$1;} if ($_=~m/^T\d+\t(\w+)\t/){$d++;${$table_hash{$clades}}[$d]=$1;} } my @liste_cles = keys %table_hash; my $f=$#liste_cles+1; print "@liste_cles\t"; print "$f\n"; print "@{$table_hash{Nematodes}}\n";
Partager