Ferramenta para desagrupar as distribuicoes

lonefreak · Apr 20, 2013 · 6abd480 · 6abd480
1 parent 22f57a5
commit 6abd480
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/phasta_tools/ungroup_distribution.pl b/phasta_tools/ungroup_distribution.pl
@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+
+open(DIST, "<$ARGV[0]");
+open(UNGRP, ">$ARGV[1]");
+while(<DIST>) {
+	chomp;
+	my @line = split("\t",$_);
+	for(my $i =0; $i<$line[1]; $i++) {
+		print UNGRP $line[0],"\n";
+	}
+}
+close(UNGRP);
+close(DIST);