[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.95, Mon May 24 22:02:47 2004 UTC revision 1.96, Wed May 26 22:34:17 2004 UTC
# Line 1570  Line 1570 
1570      return undef;      return undef;
1571  }  }
1572    
1573    =head1 genome_and_peg_of
1574    
1575    usage: ($genome_id, $peg_number = $fig->genome_and_peg_of($fid)
1576    
1577    This just extracts the genome ID and peg number from a feature ID.
1578    
1579    =cut
1580    
1581    
1582    sub genome_and_peg_of {
1583        my $prot_id = (@_ == 1) ? $_[0] : $_[1];
1584    
1585        if ($prot_id =~ /^fig\|(\d+\.\d+)\.peg\.(\d+)/)
1586        {
1587            return ($1, $2);
1588        }
1589        return undef;
1590    }
1591    
1592  =pod  =pod
1593    
1594  =head1 by_fig_id  =head1 by_fig_id

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3