while ($line = <INPUT>) {
chomp($line);
my @fields = split(/\t/, $line);
- push(@{$_[2]}, $fields[0]);
+ push(@{$_[2]}, "\"$fields[0]\"");
push(@{$_[1]}, $fields[$offsite]);
}
close(INPUT);
exit(-1);
}
- @ecs = ($ARGV[$i], @ecs);
+ my $colname;
+ if (substr($ARGV[$i], 0, 2) eq "./") { $colname = substr($ARGV[$i], 2); }
+ else { $colname = $ARGV[$i]; }
+ $colname = "\"$colname\"";
+ @ecs = ($colname, @ecs);
push(@matrix, \@ecs);
}