long overdue join wrapper fix. Needs to be rewritten in python down the road

This commit is contained in:
Anton Nekrutenko
2008-06-25 16:27:17 +00:00
parent 80ac564669
commit bb59d8a00d
+9 -3
View File
@@ -15,11 +15,17 @@ my ($fh2, $file2) = tempfile();
`sort -k $field2 $input2 > $file2`;
my $option = "";
my @fields = ();
my $line = "";
if ($OOption eq "Y") {
my $line = <$fh1>;
my @fields = split /\t/, $line;
if (defined($fh1)) {
$line = <$fh1>;
} else {
die "Failed to create file $file1\n";
}
@fields = split /\t/, $line;
die "The field you selected does not exist in the input file" if (@fields < $field1);
my @optionO = ();
my $i = 0;
foreach (@fields) {