| 1 | # $Id: ae2.pl,v 1.1 2009/06/23 12:21:34 root Exp $ |
1 | # $Id: ae2.pl,v 1.2 2009/08/06 14:00:36 root Exp $ |
| 2 | # An echo client-server benchmark. |
2 | # An echo client-server benchmark. |
| 3 | |
3 | |
| 4 | use warnings; |
4 | use warnings; |
| 5 | use strict; |
5 | use strict; |
| 6 | |
6 | |
| … | |
… | |
| 25 | }; |
25 | }; |
| 26 | |
26 | |
| 27 | my $t = time; |
27 | my $t = time; |
| 28 | |
28 | |
| 29 | for my $connections (1..$CYCLES) { |
29 | for my $connections (1..$CYCLES) { |
| 30 | my $cv = AnyEvent->condvar; |
30 | my $cv = AE::cv; |
| 31 | |
31 | |
| 32 | tcp_connect "127.0.0.1", $port, sub { |
32 | tcp_connect "127.0.0.1", $port, sub { |
| 33 | my ($fh) = @_ |
33 | my ($fh) = @_ |
| 34 | or die "tcp_connect: $!"; |
34 | or die "tcp_connect: $!"; |
| 35 | |
35 | |
