[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.40, Wed Jul 19 21:57:47 2006 UTC revision 1.41, Tue Oct 10 00:51:40 2006 UTC
# Line 41  Line 41 
41  my $excelfile;  my $excelfile;
42  my $excelfilelink="";  my $excelfilelink="";
43  BEGIN {  BEGIN {
     use lib '/home/seed/Rob/perl/lib/perl5/site_perl/5.8.5/';  
44      eval "use Spreadsheet::WriteExcel";      eval "use Spreadsheet::WriteExcel";
45      unless ($@) {$useexcel=1}      unless ($@) {$useexcel=1}
46  }  }
# Line 746  Line 745 
745    
746  sub read_fasta {  sub read_fasta {
747   my ($self, $file, $keepcomments)=@_;   my ($self, $file, $keepcomments)=@_;
748   open (IN, $file) || die "Can't open $file";   if ($file =~ /\.gz$/) {open(IN, "gunzip -c $file|") || die "Can't open a pipe from gunzip -c $file"}
749     else {open (IN, $file) || die "Can't open $file"}
750   my %f; my $t; my $s; my %c;   my %f; my $t; my $s; my %c;
751   while (<IN>) {   while (<IN>) {
752    chomp;    chomp;

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3