[Bio] / FigKernelScripts / gff2ncbitab.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/gff2ncbitab.pl

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

revision 1.2, Fri May 23 20:53:03 2008 UTC revision 1.3, Fri May 23 21:07:21 2008 UTC
# Line 19  Line 19 
19                          InterPro                          InterPro
20                          PFAM                          PFAM
21                          SMART                          SMART
22                            Swiss-Prot
23                          );                          );
24  my %desired_dbxref = map { $_ => 1} @desired_dbxref;  my %desired_dbxref = map { $_ => 1} @desired_dbxref;
25    
# Line 49  Line 50 
50    
51      my @dbxref = map { [ split(/:/) ] } @{$attr{Dbxref}};      my @dbxref = map { [ split(/:/) ] } @{$attr{Dbxref}};
52    
53        print STDERR "$_\n" for map { $_->[0] } @dbxref;
54    
55      my $id = $attr{ID}->[0];      my $id = $attr{ID}->[0];
56    
57      if ($what eq 'contig')      if ($what eq 'contig')

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3