1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| if (($intron_chr_start <= $polyA_signal_pos) and ($polyA_signal_pos <= $intron_chr_end)){
#print "intron_chr_start : $intron_chr_start\n ";
#print "intron_chr_end : $intron_chr_end\n ";
#print "polyA_signal_pos : $polyA_signal_pos \n";
my @polyA_signal_pos;
push (@polyA_signal_pos, $polyA_signal_pos);
my @liste_polya_int;
push (@liste_polya_int, $polyA_signal_pos[$i++]);
unshift (@liste_polya_int, $intron_chr_start);
push (@liste_polya_int, $intron_chr_end);
for( my $j=0; $j< $#liste_polya_int; $j++){
my $distance_entre_polya =$liste_polya_int[$j+1] - $liste_polya_int[$j] ;
print "distance_entre_polya : $distance_entre_polya\n ";
print "liste_polya_int[+1] : $liste_polya_int[$j]\n ";
print "liste_polya_int : $liste_polya_int[$j+1]\n ";
} |
Partager