Hola a todos,
me estoy volviendo loca. Hemos escrito un programa en Perl y nos dice que en la línea 10 hay un error pero no sabemos por qué.
(sirve para ver si entre dos secuencias, una que empieza por Query y la otra por Sbjct, hay alineamiento de asterisco con C)
¿alguien nos puede ayudar?
#!/usr/bin/perl -w
use strict;
my @query;
my @subject;
my $query;
my $subject;
my $i=0;
while (<STDIN>){
if ($query=~ m/Query\s+\d+\s+(S+)\s+\d+/){LÍNEA10
@query=split (//,$1);
}
if ($subject=~ m/Sbjct\s+(d+)\s+(S+)\s+\d+/){
@subject=split(//,$3);
}
if ($query[$i] eq "*" ){
if ($subject[$i] eq "C" || $subject[$i] eq "c"){
print "posicion",$i+$2,"\n";
}
}
$i=$i+1;
}
GRACIAS!