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

Diff of /FigKernelPackages/raelib.pm

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

revision 1.15, Tue May 24 23:53:24 2005 UTC revision 1.16, Wed May 25 00:49:39 2005 UTC
# Line 136  Line 136 
136    $linecount++;    $linecount++;
137    if ($verbose && !($linecount % 10000))  {print STDERR "Parsed $linecount lines\n"}    if ($verbose && !($linecount % 10000))  {print STDERR "Parsed $linecount lines\n"}
138    my @line=split /\s+\|\s+/;    my @line=split /\s+\|\s+/;
139      my $added;
140    foreach my $peg ($self->swiss_pir_ids($line[0])) {    foreach my $peg ($self->swiss_pir_ids($line[0])) {
141     print OUT "$_ | $peg\n";     print OUT "$_ | $peg\n";
142       $added=1;
143    }    }
144      unless ($added) {print OUT "$_\n"}
145   }   }
146   close IN;   close IN;
147   close OUT;   close OUT;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3