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

Diff of /FigKernelScripts/db_xrefs_of.pl

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

revision 1.1, Tue Mar 29 16:03:24 2005 UTC revision 1.2, Tue Mar 29 16:06:09 2005 UTC
# Line 13  Line 13 
13                 gi   => 6                 gi   => 6
14               );               );
15    
16  while (defined($_ = <STDIN>))  while (defined($line = <STDIN>))
17  {  {
18      if ($_ =~ /^(\S+)/)      chop $line;
19        if ($line =~ /(\S+)$/)
20      {      {
21          $id = $1;          $id = $1;
22          if ($id =~ /^fig\|/)          if ($id =~ /^fig\|/)
# Line 32  Line 33 
33                    grep { ($_->[1] ne "misc") && ($_->[1] ne "gene") }                    grep { ($_->[1] ne "misc") && ($_->[1] ne "gene") }
34                    map { [$_,&type_alias($_)] }                    map { [$_,&type_alias($_)] }
35                    @possible_xrefs;                    @possible_xrefs;
36          print "$id\t",join(",",@xrefs),"\n";          print "$line\t",join(",",@xrefs),"\n";
37      }      }
38  }  }
39    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3