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
|
if ($nb_TGIKV > 0) {
if ($nb_PADVL > 0) {
print "$cur_header\n"; #TGIKV_PADVL
if ($nb_YY ==1) { #the sequence contains the TGIKV_PADVL_YY motifs combination
print "$cur_header\n";
}
}
elsif ($nb_YY == 1) { #TGIKV_YY
print "$cur_header\n";
}
}
elsif ($nb_PADVL > 0){
if ($nb_YY == 1){ #PADVL_YY
print "$cur_header\n";
}
}
elsif ($nb_WalkerA > 0) { #WalkerA
#print "$cur_header\n";
if ($nb_LSGGQ > 0) { #WalkerA_LSGGQ
print "$cur_header\n";
if ($nb_YY > 0) { # WalkerA_LSGGQ_YY
print "$cur_header\n";
}
}
elsif ($nb_YY > 0) { # WalkerA_YY
print "$cur_header\n";
}
}
elsif ($nb_LSGGQ > 0) { #LSGGQ
if ($nb_YY > 0) { #LSGGQ_YY
print "$cur_header\n";
}
}
} |
Partager