Mercurial > repos > devteam > pgsnp2gd_snp
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 } |