Mercurial > repos > devteam > pgsnp2gd_snp

comparison pgSnp2gd_snp.pl @ 1:4cd611004dc4 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/pgsnp2gd_snp commit a1517c9d22029095120643bbe2c8fa53754dd2b7
author devteam
date Wed, 11 Nov 2015 12:22:57 -0500
parents d281062566f9
children
comparison
equal deleted inserted replaced
0:d281062566f9 1:4cd611004dc4
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 }