Mercurial > repos > devteam > snpfreq
comparison snpFreq2.pl @ 1:5c3ac057608b draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tool_collections/hgv/snpfreq commit a1517c9d22029095120643bbe2c8fa53754dd2b7
author | devteam |
---|---|
date | Wed, 11 Nov 2015 12:50:35 -0500 |
parents | 72ea0d13dd66 |
children |
comparison
equal
deleted
inserted
replaced
0:72ea0d13dd66 | 1:5c3ac057608b |
---|---|
88 chomp; | 88 chomp; |
89 if (/^(\d+)\s/) { push(@g2, $1); } | 89 if (/^(\d+)\s/) { push(@g2, $1); } |
90 } | 90 } |
91 close FH or die "Couldn't close $grpFile, $!\n"; | 91 close FH or die "Couldn't close $grpFile, $!\n"; |
92 if ($file =~ /.gz$/) { | 92 if ($file =~ /.gz$/) { |
93 open(FH, "zcat $file |") or die "Couldn't read $file, $!\n"; | 93 open(FH, "zcat < $file |") or die "Couldn't read $file, $!\n"; |
94 }else { | 94 }else { |
95 open(FH, $file) or die "Couldn't read $file, $!\n"; | 95 open(FH, $file) or die "Couldn't read $file, $!\n"; |
96 } | 96 } |
97 open(OUT, ">", "snpTable.txt") or die "Couldn't open snpTable.txt, $!\n"; | 97 open(OUT, ">", "snpTable.txt") or die "Couldn't open snpTable.txt, $!\n"; |
98 my $size; | 98 my $size; |