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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
|
#!./perl -w
use strict;
use Config;
use Event qw(time loop unloop);
use vars qw($VERSION $TestTime);
$VERSION = '0.08';
$TestTime = 11;
#eval q[ use NetServer::ProcessTop; warn '[Top @ '.(7000+$$%1000)."]\n"; ];
#warn if $@;
# $Event::DebugLevel = 2;
Event->timer(cb => \&unloop,
after => $TestTime,
nice => -1, desc => "End of benchmark");
#------------------------------ Timer
use vars qw($TimerCount $TimerExpect);
$TimerCount = 0;
$TimerExpect = 0;
for (1..20) {
my $interval = .2 + .1 * int rand 3;
Event->timer(cb => sub { ++$TimerCount },
interval => $interval);
$TimerExpect += $TestTime/$interval;
}
#------------------------------ Signals
use vars qw($SignalCount);
$SignalCount = 0;
Event->signal(signal => 'USR1',
cb => sub { ++$SignalCount; });
Event->timer(cb => sub { kill 'USR1', $$; },
interval => .5);
#------------------------------ IO
use vars qw($IOCount @W);
$IOCount = 0;
use Symbol;
for (1..15) {
my ($r,$w) = (gensym,gensym);
pipe($r,$w);
select $w;
$|=1;
Event->io(fd => $r,
cb => sub {
my $buf;
++$IOCount;
sysread $r, $buf, 1;
},
poll => 'r', desc => "fd ".fileno($r));
push @W, $w;
}
select STDOUT;
#------------------------------ Idle
use vars qw($IdleCount);
$IdleCount = 0;
my $idle;
$idle = Event->idle(min => undef, cb => sub {
++$IdleCount;
for (0..@W) {
my $w = $W[int rand @W];
syswrite $w, '.', 1;
}
$idle->again;
}, desc => "idle");
#------------------------------ Loop
sub run {
my $start = time;
loop();
time - $start;
}
warn "Running benchmark...\n";
my $elapse = &run;
sub pct {
my ($got, $expect) = @_;
sprintf "%.2f%%", 100*$got/$expect;
}
warn "Timing a null loop...\n";
my $null = Event::null_loops_per_second(7);
my $e_per_sec = ($IdleCount+$TimerCount+$IOCount+$SignalCount)/$elapse;
chomp(my $uname = `uname -a`);
print "
benchmark: $VERSION
Event: $Event::VERSION
perl $]
uname=$uname
cc='$Config{cc}', optimize='$Config{optimize}'
ccflags='$Config{ccflags}'
Elapse Time: ".pct($elapse,$TestTime)." of $TestTime seconds
Timer/sec: ".pct($TimerCount,$TimerExpect)." ($TimerCount total)
Io/sec: ".sprintf("%.3f", $IOCount/$elapse)." ($IOCount total)
Signals/sec ".sprintf("%.2f", $SignalCount/$elapse)."
Events/sec ".sprintf("%.3f", $e_per_sec)."
Null/sec $null
Event/Null ".sprintf("%.2f", 100* $e_per_sec / $null)."\%
";
__END__
-------------------------------------
benchmark: 0.08
Event: 0.40
perl 5.00556
uname=SunOS eq1070.wks.na.deuba.com 5.5.1 Generic_103640-24 sun4u sparc SUNW,Ultra-1
cc='cc', optimize='-xO3 -g'
ccflags='-DDEBUGGING'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.37% of 11 seconds
Timer/sec: 98.18% (801 total)
Io/sec: 4550.053 (49735 total)
Signals/sec 1.92
Events/sec 4909.684
Null/sec 93511
Event/Null 5.25%
-------------------------------------
benchmark: 0.08
Event: 0.26
perl 5.00554
uname=SunOS eq1062.wks.na.deuba.com 5.5.1 Generic_103640-19 sun4u sparc SUNW,Ultra-1
cc='cc', optimize='-xO3 -g'
ccflags='-DDEBUGGING'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.14% of 11 seconds
Timer/sec: 98.18% (810 total)
Io/sec: 4957.076 (54057 total)
Signals/sec 1.93
Events/sec 5343.137
Null/sec 111410
Event/Null 4.80%
-------------------------------------
benchmark: 0.07
Event: 0.24
perl 5.00553
uname=SunOS eq1062.wks.na.deuba.com 5.5.1 Generic_103640-19 sun4u sparc SUNW,Ultra-1
cc='cc', optimize='-xO3 -g'
ccflags='-DDEBUGGING -I/usr/local/include'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.14% of 11 seconds
Timer/sec: 98.18% (783 total)
Io/sec: 4911.331 (53562 total)
Signals/sec 1.93
Events/sec 5292.045
Null/sec 114013
Event/Null 4.64%
-------------------------------------
benchmark: 0.06
Event: 0.20
perl 5.00552
uname=Linux furu.g.aas.no 2.0.31 #1 Mon Oct 13 12:20:11 MET DST 1997 i586
cc='cc', optimize='-g'
ccflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 97.61% of 11 seconds
Timer/sec: 96.80% (772 total)
Io/sec: 1518.486 (16304 total)
Signals/sec 1.96
Events/sec 1687.248
Null/sec 50928
-------------------------------------
benchmark: 0.06
Event: 0.18
perl 5.00551
uname=IRIX64 clobber 6.2 03131016 IP25 mips
cc='cc -n32', optimize='-O3'
ccflags='-D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1184 -OPT:Olimit=0
-I/usr/local/
include -DLANGUAGE_C'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.63% of 11 seconds
Timer/sec: 98.18% (720 total)
Io/sec: 6541.408 (71690 total)
Signals/sec 1.92
Events/sec 7017.893
Null/sec 74469
-------------------------------------
benchmark: 0.05
Event: 0.13
perl 5.00502
uname=SunOS eq1062.wks.na.deuba.com 5.5.1 Generic_103640-19 sun4u sparc SUNW,Ultra-1
cc='cc', optimize='-xO3 -g'
ccflags='-DDEBUGGING -I/usr/local/include'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.48% of 11 seconds
Timer/sec: 98.18% (765 total)
Io/sec: 3742.786 (40955 total)
Signals/sec 1.92
Events/sec 4048.570
Null/sec 176565
-------------------------------------
benchmark: 0.04
Time::HiRes: 01.18, Event: 0.10
perl 5.005
uname=IRIX Pandora 6.3 12161207 IP32
cc='cc -n32', optimize='-O3'
ccflags='-D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1184 -OPT:Olimit=0
-I/usr/local/include -DLANGUAGE_C'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.42% of 11 seconds
Timer/sec: 98.18% (846 total)
Io/sec: 4729.905 (51725 total)
Signals/sec 1.92
Events/sec 5104.823
Null/sec 92255
-------------------------------------
benchmark: 0.04
Time::HiRes: 01.18, Event: 0.10
perl 5.00501
uname=SunOS pluto 5.5.1 Generic_103640-08 sun4m sparc SUNW,SPARCstation-10
cc='gcc', optimize='-O2 -g'
ccflags='-DDEBUGGING -I/usr/local/include'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 98.83% of 11 seconds
Timer/sec: 98.18% (765 total)
Io/sec: 2629.475 (28586 total)
Signals/sec 1.93
Events/sec 2866.151
Null/sec 150603
-------------------------------------
benchmark: 0.03
IO: 1.20, Time::HiRes: 01.18, Event: 0.07
perl 5.00404
uname=IRIX64 clobber 6.2 03131016 IP25
cc='cc -n32 -mips4 -r10000', optimize='-O3 -TARG:platform=ip25 -OPT:Olimit=0:roundoff=3:div_split=ON:alias=typed'
ccflags ='-D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1184 -OPT:Olimit=0 -I/usr/local/include -I/usr/people7/walker/pub/include -DLANGUAGE_C -DPACK_MALLOC -DTWO_POT_OPTIMIZE -DEMERGENCY_SBRK'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.66% of 11 seconds
Timer/sec: 98.18% (819 total)
Io/sec: 817.160 (8958 total)
Signals/sec 1.92
Events/sec 944.869
-------------------------------------
benchmark: 0.03
IO: 1.20, Time::HiRes: 01.18, Event: 0.07
perl 5.005
uname=SunOS punch 5.5.1 Generic_103640-08 sun4u sparc SUNW,Ultra-2
cc='gcc', optimize='-O2 -g'
ccflags ='-DDEBUGGING -I/usr/local/include'
Please mail benchmark results to perl-loop@perl.org. Thanks!
Elapse Time: 99.76% of 11 seconds
Timer/sec: 98.18% (711 total)
Io/sec: 1020.097 (11194 total)
Signals/sec 1.91
Events/sec 1150.593
|
