🟢 로그 분석을 위한 함수형 데이터 처리 시스템

(ns log-processing)

(defn parse-log [line]
  (try
    (let [[timestamp severity content] (re-find #"^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}) (\w+) (.+)$" line)]
      (when (and timestamp severity content)
        {:timestamp timestamp
         :severity severity
         :content content}))
    (catch Exception e
      (println "잘못된 로그 형식: " line)
      nil)))

(defn filter-log [rule-fn logs]
  (filter rule-fn logs))

(defn main []
  (let [logs (lazy-seq
              (when-let [line (read-line)]
                (cons (parse-log line) (main))))]
    (doseq [log logs]
      (when log
        (println "로그: " log)))))

(main)