[Bioperl-l] parsing kegg 'ko' file

[shalabh sharma]

Hi All,
        I am trying to parse kegg 'ko' file. I just need three information
out of it.
name, entry and description, so i just wrote this small code:

#!/usr/bin/perl -w
use Bio::SeqIO;
my $in = Bio::SeqIO->new(-file => "ko", -format => 'KEGG');
while(my $seq = $in->next_seq){
      print $seq->pimary_id, "\t" ;
      print $seq->display_id, "\t";
      print $seq->annotation->get_Annotations('description') ,"\n";
}

But when i tried to run this i got this error:
Can't locate object method "pimary_id" via package "Bio::Seq::RichSeq" at
parseKO_bioperl.pl line 5, <GEN0> line 1.
I am using bioperl -v 1.006001

Thanks
Shalabh

-- 
Shalabh Sharma
Scientific Computing Professional Associate (Bioinformatics Specialist)
Department of Marine Sciences
University of Georgia
Athens, GA 30602-3636