diff options
| -rw-r--r-- | it_pipe.class | 20 |
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") |