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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
| use strict;
use warnings;
use Data::Dumper;
my %h;
%h = (
K1=> ["has","hsgz","hsgz"],
K2=> ["dax","pip","pip","has",],
K3=> ["dax","hsa"],
K4=> ["dax"],
K5=> ["pip","pip","mas","mna","maa"],
);
my %hash;
%hash = (
clone1=> ["has","hsgz","hsgz"],
clone2=> ["dax","mac" ],
clone3=> ["max","pip","nana","has",],
clone4=> ["dax","hsa"],
clone5=> ["pip","pip","chu","mna","mna"],
);
print "$#{$hash{clone1}} \n";
my @liste ;
@liste=("has","hsgz",);
my @liste1=("has","hsgz",);
my @liste2=("has","hsgz","hsgz");
my @liste_controle;
foreach my $x(@liste1){
foreach my $y(@liste2){
if ($x=~m/$y/){push (@liste_controle,1);}
}
}
my $long_liste1=$#liste1+1;
my $long_liste2=$#liste2+1;
if ($long_liste2>=$long_liste1){print "reussi\n";}
else {print "non reussi\n";}
#if ($#@liste1=$#liste2){print "vrai reussi\n";}
#else {print "non reussi\n";}
my @clone_clade;
foreach my $f(keys(%hash) ) {my $compteur_clone_clade=0;
foreach my $x(@{$hash{$f}} ){
foreach my $g(keys (%h) ){
my $compteur_element_clade=0;
my $compteurXvsY=0;
foreach my $y(@{$h{$g} } ){
if ($x=~m/$y/){ $compteurXvsY=1 ; }else {$compteurXvsY=0 ;}
}
if($compteurXvsY==1) {$compteur_element_clade=1;
$compteur_clone_clade+=$compteur_element_clade;}
}
my $p=$#{$hash{$f}}+1;
if ($compteur_clone_clade==$p) {
print "tous les especes de $f se trouve dans la meme clade $compteur_clone_clade $p \n";}
}
}
<>; |
Partager