opensource/galaxy
3
0
Fork 0
mirror of https://github.com/galaxyproject/galaxy.git synced 2026-09-24 16:30:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix for cutWrapper, should now properly parse column delimiters.

Browse Source
This commit is contained in:
Greg Von Kuster
2008-04-04 12:30:09 +00:00
parent a9db5f0e43
commit 9a01f77631
1 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/filters/cutWrapper.pl
+11 -15
View File
@@ -25,21 +25,17 @@ foreach ( split /,/, $ARGV[1] ) {
die "No columns specified, columns are not preceded with 'c', or commas are not used to separate column numbers: $ARGV[1]\n" if @columns == 0;
if ($ARGV[2] eq 'T') {
$del = "\t";
} elsif ($ARGV[2] eq 'C') {
$del = ",";
} elsif ($ARGV[2] eq 'D') {
$del = "-";
} elsif ($ARGV[2] eq 'U') {
$del = "_";
} elsif ($ARGV[2] eq 'P') {
$del = "|";
} elsif ($ARGV[2] eq 'Dt') {
$del = ".";
} elsif ($ARGV[2] eq 'Sp') {
$del = " ";
}
my $column_delimiters_href = {
'T' => q{\t},
'C' => ",",
'D' => "-",
'U' => "_",
'P' => q{\|},
'Dt' => q{\.},
'Sp' => q{\s+}
};
$del = $column_delimiters_href->{$ARGV[2]};
open (OUT, ">$ARGV[3]") or die "Cannot create $ARGV[2]:$!\n";
open (IN, "<$ARGV[0]") or die "Cannot open $ARGV[0]:$!\n";