/
bench.sh
executable file
·52 lines (38 loc) · 1.11 KB
/
bench.sh
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
41
42
43
44
45
46
47
48
49
50
51
52
#!/bin/sh
unset LANG
FILE=nfsd.gz
echo fast_stats.pl
gzcat $FILE | time /usr/bin/perl ./fast_stats.pl
echo baseline
gzcat $FILE | time /usr/bin/perl ./stats_basic_optimized.pl
## source nfsd.gz
## my_stats 5.10.1
## lines 12236390 bytes 1073743047
## Size mega 1024 reads
## Lines/sec 96588 MB/sec 8
## 126.71 real 125.07 user 0.98 sys
##
## my_stats system_perl 5.8.8
## lines 12236390 bytes 1073743047
## Size mega 1024 reads
## Lines/sec 95987 MB/sec 8
## 127.49 real 125.42 user 0.97 sys
##
## base_line
## base_line with system_perl
##
## lines 12236390 bytes 1073743047
## Size mega 1024 reads
## Lines/sec 67785 MB/sec 5948171
## 180.54 real 177.24 user 1.33 sys
##### Old line counters, for reference
##
## Source yy.gz (ls -laR)
## wc
## 194501376 lines 8757706752 bytes 133.00 real 117.65 user 3.17 sys
## perl_wc
## 194501376 lines 8757706752 bytes 119.28 real 101.47 user 4.93 sys
## 1630628 lines per second, 70MB/sec
## system_perl perl_wc
## 194501376 lines 8757706752 bytes 95.65 real 74.69 user 4.81 sys
## 2033469 lines per second, 87MB/sec