Mercurial > repos > devteam > pgsnp2gd_snp

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }