diff cutWrapper.pl @ 3:cec635fab700 draft default tip

planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/cut_columns commit e3d5231ad1ca93ad49117e9804266f371d863e82

--- a/cutWrapper.pl	Wed Nov 11 12:10:10 2015 -0500
+++ b/cutWrapper.pl	Fri Aug 05 16:38:13 2016 -0400
@@ -9,6 +9,9 @@
 my @out = ();
 my $command = "";
 my $field = 0;
+my $start = 0;
+my $end = 0;
+my $i = 0;
 
 # a wrapper for cut for use in galaxy
 # cutWrapper.pl [filename] [columns] [delim] [output]
@@ -20,6 +23,13 @@
   if (m/^c\d{1,}$/i) {
     push (@columns, $_);
     $columns[@columns-1] =~s/c//ig;
+  } elsif (m/^c\d{1,}-c\d{1,}$/i) {
+    ($start, $end)  = split(/-/, $_);
+    $start =~ s/c//ig;
+    $end =~ s/c//ig;
+    for $i ($start .. $end) {
+       push (@columns, $i); 
+    }
   }
 }