12 lines
408 B
Clojure
12 lines
408 B
Clojure
|
(ns db-who
|
||
|
|
(:require [clojure.java.shell :as shell]
|
||
|
|
[clojure.string :as str]
|
||
|
|
[clojure.pprint :as pp]))
|
||
|
|
(defn tsv->maps [tsv]
|
||
|
|
(let [lines (str/split-lines tsv)
|
||
|
|
[headers & rows] (map #(str/split % #"\t") lines)]
|
||
|
|
(map #(zipmap headers %) rows)))
|
||
|
|
|
||
|
|
(-> (shell/sh "mysql" "--column-names" "-e" "select user, program_name from sys.session;")
|
||
|
|
:out tsv->maps pp/print-table)
|