Mercurial > repos > devteam > snpfreq

comparison snpFreq2.pl @ 1:5c3ac057608b 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/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;