comparison pgSnp2gd_snp.pl @ 1:57c5ac41f22c draft default tip

planemo upload commit 33927a87ba2eee9bf0ecdd376a66241b17b3d734
author devteam
date Tue, 13 Oct 2015 12:27:32 -0400
parents d189d06d23cf
children
comparison
equal deleted inserted replaced
0:d189d06d23cf 1:57c5ac41f22c
57 } 57 }
58 close FH or die "Couldn't close $tab, $!\n"; 58 close FH or die "Couldn't close $tab, $!\n";
59 } 59 }
60 60
61 if ($in =~ /.gz$/) { 61 if ($in =~ /.gz$/) {
62 open(FH, "zcat $in |") or die "Couldn't open $in, $!\n"; 62 open(FH, "zcat < $in |") or die "Couldn't open $in, $!\n";
63 }elsif ($in =~ /.bz2$/) { 63 }elsif ($in =~ /.bz2$/) {
64 open(FH, "bzcat $in |") or die "Couldn't open $in, $!\n"; 64 open(FH, "bzcat $in |") or die "Couldn't open $in, $!\n";
65 }else { 65 }else {
66 open(FH, $in) or die "Couldn't open $in, $!\n"; 66 open(FH, $in) or die "Couldn't open $in, $!\n";
67 } 67 }