使用記錄正規表示式解析一行日誌

(defrecord Logline [datetime action user id])
(def pattern #"(\d{8}-\d{2}:\d{2}:\d{2}.\d{3})\|.*\|(\w*),(\w*),(\d*)")
(defn parser [line] 
  (if-let [[_ dt a u i] (re-find pattern line)] 
          (->Logline dt a u i)))

定義一個示例行：

(def sample "20170426-17:20:04.005|bip.com|1.0.0|alert|Update,john,12")

測試一下：

(parser sample)

結果：

#user.Logline{:datetime "20170426-17:20:04.005", :action "Update", :user "john", :id "12"}