csvcol

gistfile1.el

#!/usr/bin/env emacs --script
(setq usage "\
Usage:
  $ csvcol file.csv 1 2 3
  $ csvcol file.csv 4, 5, 6
  $ csvcol file.csv 7,8,9
")

(require 'package)
(setq package-enable-at-startup nil)
(package-initialize)

(require 'cl)
(require 'csv-mode)

(if (<= (length command-line-args-left) 1)
    (princ usage)
  (progn
    (find-file (car command-line-args-left))
    (setq text (buffer-string))

    (setq fields (cdr command-line-args-left))
    (setq fields (mapcan (lambda (field)
                           (split-string field "[^0-9]"))
                         fields))
    (setq fields (remove-if (lambda (field)
                              (string= "" field))
                            fields))
    (setq fields (mapcar 'string-to-number fields))

    (with-temp-buffer
      (insert text)
      (csv-kill-fields fields (point-min) (point-max))
      (erase-buffer)
      (csv-yank-as-new-table)
      (princ (buffer-string)))))