add separator argument to all column based methods

1 files changed, 12 insertions, 8 deletions

diff --git a/it_pipe.class b/it_pipe.class
index 50a1f00..413a7b5 100644
--- a/it_pipe.class
+++ b/it_pipe.class
@@ -112,24 +112,27 @@ function grep($regexp)
 
 /**
  * Select cols from tab-separated cols in each line and tab-joins them again. Key order relevant.
+ * @param picks      comma separated column numbers to pick
+ * @param separator  split character ["\t"]
  */
-function cut($picks)
+function cut($picks, $separator = "\t")
 {
 	foreach ($this->lines as $idx => $line)
-		$this->lines[$idx] = implode("\t", it::filter_keys(explode("\t", $line), $picks, ['reorder' => true]));
+		$this->lines[$idx] = implode($separator, it::filter_keys(explode($separator, $line), $picks, ['reorder' => true]));
 
 	return $this;
 }
 
 /**
  * Swap first two columns
+ * @param separator split character ["\t"]
  */
-function swap()
+function swap($separator = "\t")
 {
 	foreach ($this->lines as $idx => $line)
 	{
-		list($col1, $col2) = explode("\t", $line, 2);
-		$this->lines[$idx] = "$col2\t$col1";
+		list($col1, $col2) = explode($separator, $line, 2);
+		$this->lines[$idx] = "$col2$separator$col1";
 	}
 
 	return $this;
@@ -137,12 +140,13 @@ function swap()
 
 /**
  * Return contents of pipe as key->val pair (key must be tab separated).
+ * @param separator split character ["\t"]
  */
-function keyval()
+function keyval($separator = "\t")
 {
 	foreach ($this->lines as $line)
 	{
-		list($key, $val) = explode("\t", $line, 2);
+		list($key, $val) = explode($separator, $line, 2);
 		$result[$key] = $val;
 	}
 
@@ -169,7 +173,7 @@ function ED()
 
 /**
  * Convert every line into an object with named columns
- * @param collist comma separator column name list
+ * @param collist comma separated column name list
  * @param separator split character ["\t"]
  */
 function cols($collist, $separator = "\t")