AE
Size: a a a
AE
SL
AK
$ perl -E 'use Time::HiRes qw(time); use AnyEvent; my $s=time; my $t=AE::now; say time - $s'Коллеги, а почему функции AnyEvent такие, гм, тормозные?
0.0312619209289551
AK
DF
VG
AP
$ perl -E 'use Time::HiRes qw(time); use AnyEvent; my $s=time; my $t=AE::now; say time - $s'
0.00371289253234863
S
DF
perl -E 'use Time::HiRes qw(time); use AnyEvent; my $s=time; my $t=AE::now; say time - $s'
0.0128269195556641
DF
a
VG
VG
AK
perl -E 'use Time::HiRes qw(time); use AnyEvent; my $s=time; my $t=AE::now; say time - $s'
0.0128269195556641
AK
VG
VT
AK
perl -E 'use AnyEvent; my @aeh; my $c=0; my $cv; $cv=AE::cv, push(@aeh, AE::timer 0, 0.2, sub { say ++$c; $cv->send }), $cv->recv() for 1,2; '
perl -E 'use AnyEvent; my @aeh; my $cv=AE::cv; push(@aeh, AE::timer 0, 0.2, $cv), $cv->recv() for 1,2; '
AK
VT