[Bioperl-l] problem with a script

["Joonas Jämsen"]

Hi,

Im trying to run the script below and I get an error: "Can't call method "next_result" on an undefined value at parser.pl line 5."


#!/v/linux26_x86_64/appl/molbio/bioperl/perl/bin/
use Bio::SearchIO
my $searchio = Bio::SearchIO->new(-format => 'hmmer', -file   => '/wrk/xxxx/hmm/hmmsearch_nr.out');
while ( my $result = $in->next_result ) {
     while ( my $hit = $result->next_hit ) {
         while ( my $hsp-evalue<=10 ) {
             while ( my $hsp = $hit->next_hsp ) {
                 print $hit->accession(), "\n";
         }
     }
 }

Could someone tell me what is wrong?

Thanks.