Mercurial > repos > devteam > snpfreq

comparison snpFreq2.pl @ 1:1e488c26e9d8 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:52:33 -0400
parents afdfa7335319
children
comparison
equal deleted inserted replaced
0:afdfa7335319 1:1e488c26e9d8
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;