jiro4989
3/25/2018 - 11:17 AM

アクセスログの末尾の秒数を集計する

アクセスログの末尾の秒数を集計する

#!/bin/bash

cat $HOME/Documents/access_log |
  sed -r 's@.* ([0-9]+)$@\1@g' |
  awk '{sum+=$1} END{print "count:", NR, "sum:", sum}'
(ns clojuretest.core
  (:require [clojure.string :as str]))

(defn -main
  "description"
  [& args]
  (let [nums (->> (-> "HOME"
                      System/getenv
                      (str "/Documents/access_log")
                      slurp
                      (str/split #"\n"))
                  (map #(str/replace % #".* (\d+)$" "$1"))
                  (map #(Integer/parseInt %)))]
    (println "count:" (count nums))
    (println "sum:" (reduce + nums))))