/
epstat
executable file
·40 lines (31 loc) · 1.09 KB
/
epstat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/bin/sh
#=======================================================
# epstat
# File ID: 7b2b204e-5d39-11df-88e3-90e6ba3022ac
# Lager enkel statistikk over hits osv i en loggfil.
# Forventer antall sekunder siden 1970 etterfulgt av TAB
# i begynnelsen av hver linje.
#=======================================================
tmp_file=/tmp/epstat.$RANDOM.tmp
wr_hours=1
wr_min=0
[ "$1" = "-m" ] && { shift; wr_min=1; } # -m lager minuttstatistikk også.
[ "$1" = "-t" ] && { shift; wr_hours=0; } # -t forhindrer utskrift av timebasis
cut -c 1-10 $* | sort -n | ep -l >$tmp_file
echo
echo Totalt $(wc -l $tmp_file | rmspcall | cut -d ' ' -f 1) hits.
echo Antall hits pr. døgn:
echo
uniq -cw 10 $tmp_file | tr T ' ' | cut -c 1-18 | perl -pe 's/^\s+(\d+)\s+(.*)$/$2\t$1/'
echo
if [ "$wr_hours" = "1" ]; then
echo Antall hits pr. time:
echo
uniq -cw 13 $tmp_file | tr [T:] ' ' | cut -c 1-21 | perl -pe 's/^\s+(\d+)\s+(.*)$/$2\t$1/'
fi
if [ "$wr_min" = "1" ]; then
echo Antall hits pr. minutt:
echo
uniq -cw 16 $tmp_file | tr [T] ' ' | cut -c 1-24 | perl -pe 's/^\s+(\d+)\s+(.*)$/$2\t$1/'
fi
rm $tmp_file