[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.7, Sun Apr 3 02:15:15 2005 UTC revision 1.8, Sun Apr 3 19:11:11 2005 UTC
# Line 81  Line 81 
81   my ($self, $from, $to)=@_;   my ($self, $from, $to)=@_;
82   die "File $from does not exist as called in $0" unless (-e $from);   die "File $from does not exist as called in $0" unless (-e $from);
83   open (IN, $from) || die "Can't open $from";   open (IN, $from) || die "Can't open $from";
84   open (OUT, ">$to") || die "Can't write tot $to";   open (OUT, ">$to") || die "Can't write to $to";
85   while (<IN>) {   while (<IN>) {
86    if (/^>/) {print OUT; next}    if (/^>/) {print OUT; next}
87    chomp;    chomp;
# Line 94  Line 94 
94   }   }
95   close IN;   close IN;
96   close OUT;   close OUT;
97     return 1;
98  }  }
99    
100    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3