1 | NAME |
1 | NAME |
2 | AnyEvent - the DBI of event loop programming |
2 | AnyEvent - the DBI of event loop programming |
3 | |
3 | |
4 | EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, IO::Async, Qt and POE are |
4 | EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async, |
5 | various supported event loops/environments. |
5 | Qt and POE are various supported event loops/environments. |
6 | |
6 | |
7 | SYNOPSIS |
7 | SYNOPSIS |
8 | use AnyEvent; |
8 | use AnyEvent; |
9 | |
9 | |
10 | # file descriptor readable |
10 | # file descriptor readable |
… | |
… | |
173 | Note that "my $w; $w =" combination. This is necessary because in Perl, |
173 | Note that "my $w; $w =" combination. This is necessary because in Perl, |
174 | my variables are only visible after the statement in which they are |
174 | my variables are only visible after the statement in which they are |
175 | declared. |
175 | declared. |
176 | |
176 | |
177 | I/O WATCHERS |
177 | I/O WATCHERS |
|
|
178 | $w = AnyEvent->io ( |
|
|
179 | fh => <filehandle_or_fileno>, |
|
|
180 | poll => <"r" or "w">, |
|
|
181 | cb => <callback>, |
|
|
182 | ); |
|
|
183 | |
178 | You can create an I/O watcher by calling the "AnyEvent->io" method with |
184 | You can create an I/O watcher by calling the "AnyEvent->io" method with |
179 | the following mandatory key-value pairs as arguments: |
185 | the following mandatory key-value pairs as arguments: |
180 | |
186 | |
181 | "fh" is the Perl *file handle* (or a naked file descriptor) to watch for |
187 | "fh" is the Perl *file handle* (or a naked file descriptor) to watch for |
182 | events (AnyEvent might or might not keep a reference to this file |
188 | events (AnyEvent might or might not keep a reference to this file |
… | |
… | |
210 | warn "read: $input\n"; |
216 | warn "read: $input\n"; |
211 | undef $w; |
217 | undef $w; |
212 | }); |
218 | }); |
213 | |
219 | |
214 | TIME WATCHERS |
220 | TIME WATCHERS |
|
|
221 | $w = AnyEvent->timer (after => <seconds>, cb => <callback>); |
|
|
222 | |
|
|
223 | $w = AnyEvent->timer ( |
|
|
224 | after => <fractional_seconds>, |
|
|
225 | interval => <fractional_seconds>, |
|
|
226 | cb => <callback>, |
|
|
227 | ); |
|
|
228 | |
215 | You can create a time watcher by calling the "AnyEvent->timer" method |
229 | You can create a time watcher by calling the "AnyEvent->timer" method |
216 | with the following mandatory arguments: |
230 | with the following mandatory arguments: |
217 | |
231 | |
218 | "after" specifies after how many seconds (fractional values are |
232 | "after" specifies after how many seconds (fractional values are |
219 | supported) the callback should be invoked. "cb" is the callback to |
233 | supported) the callback should be invoked. "cb" is the callback to |
… | |
… | |
340 | time, which might affect timers and time-outs. |
354 | time, which might affect timers and time-outs. |
341 | |
355 | |
342 | When this is the case, you can call this method, which will update |
356 | When this is the case, you can call this method, which will update |
343 | the event loop's idea of "current time". |
357 | the event loop's idea of "current time". |
344 | |
358 | |
|
|
359 | A typical example would be a script in a web server (e.g. |
|
|
360 | "mod_perl") - when mod_perl executes the script, then the event loop |
|
|
361 | will have the wrong idea about the "current time" (being potentially |
|
|
362 | far in the past, when the script ran the last time). In that case |
|
|
363 | you should arrange a call to "AnyEvent->now_update" each time the |
|
|
364 | web server process wakes up again (e.g. at the start of your script, |
|
|
365 | or in a handler). |
|
|
366 | |
345 | Note that updating the time *might* cause some events to be handled. |
367 | Note that updating the time *might* cause some events to be handled. |
346 | |
368 | |
347 | SIGNAL WATCHERS |
369 | SIGNAL WATCHERS |
|
|
370 | $w = AnyEvent->signal (signal => <uppercase_signal_name>, cb => <callback>); |
|
|
371 | |
348 | You can watch for signals using a signal watcher, "signal" is the signal |
372 | You can watch for signals using a signal watcher, "signal" is the signal |
349 | *name* in uppercase and without any "SIG" prefix, "cb" is the Perl |
373 | *name* in uppercase and without any "SIG" prefix, "cb" is the Perl |
350 | callback to be invoked whenever a signal occurs. |
374 | callback to be invoked whenever a signal occurs. |
351 | |
375 | |
352 | Although the callback might get passed parameters, their value and |
376 | Although the callback might get passed parameters, their value and |
… | |
… | |
371 | my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 }); |
395 | my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 }); |
372 | |
396 | |
373 | Signal Races, Delays and Workarounds |
397 | Signal Races, Delays and Workarounds |
374 | Many event loops (e.g. Glib, Tk, Qt, IO::Async) do not support attaching |
398 | Many event loops (e.g. Glib, Tk, Qt, IO::Async) do not support attaching |
375 | callbacks to signals in a generic way, which is a pity, as you cannot do |
399 | callbacks to signals in a generic way, which is a pity, as you cannot do |
376 | race-free signal handling in perl. AnyEvent will try to do it's best, |
400 | race-free signal handling in perl, requiring C libraries for this. |
377 | but in some cases, signals will be delayed. The maximum time a signal |
401 | AnyEvent will try to do it's best, which means in some cases, signals |
378 | might be delayed is specified in $AnyEvent::MAX_SIGNAL_LATENCY (default: |
402 | will be delayed. The maximum time a signal might be delayed is specified |
379 | 10 seconds). This variable can be changed only before the first signal |
403 | in $AnyEvent::MAX_SIGNAL_LATENCY (default: 10 seconds). This variable |
380 | watcher is created, and should be left alone otherwise. Higher values |
404 | can be changed only before the first signal watcher is created, and |
|
|
405 | should be left alone otherwise. This variable determines how often |
|
|
406 | AnyEvent polls for signals (in case a wake-up was missed). Higher values |
381 | will cause fewer spurious wake-ups, which is better for power and CPU |
407 | will cause fewer spurious wake-ups, which is better for power and CPU |
|
|
408 | saving. |
|
|
409 | |
382 | saving. All these problems can be avoided by installing the optional |
410 | All these problems can be avoided by installing the optional |
383 | Async::Interrupt module. This will not work with inherently broken event |
411 | Async::Interrupt module, which works with most event loops. It will not |
384 | loops such as Event or Event::Lib (and not with POE currently, as POE |
412 | work with inherently broken event loops such as Event or Event::Lib (and |
385 | does it's own workaround with one-second latency). With those, you just |
413 | not with POE currently, as POE does it's own workaround with one-second |
386 | have to suffer the delays. |
414 | latency). For those, you just have to suffer the delays. |
387 | |
415 | |
388 | CHILD PROCESS WATCHERS |
416 | CHILD PROCESS WATCHERS |
|
|
417 | $w = AnyEvent->child (pid => <process id>, cb => <callback>); |
|
|
418 | |
389 | You can also watch on a child process exit and catch its exit status. |
419 | You can also watch on a child process exit and catch its exit status. |
390 | |
420 | |
391 | The child process is specified by the "pid" argument (one some backends, |
421 | The child process is specified by the "pid" argument (one some backends, |
392 | using 0 watches for any child process exit, on others this will croak). |
422 | using 0 watches for any child process exit, on others this will croak). |
393 | The watcher will be triggered only when the child process has finished |
423 | The watcher will be triggered only when the child process has finished |
… | |
… | |
439 | |
469 | |
440 | # do something else, then wait for process exit |
470 | # do something else, then wait for process exit |
441 | $done->recv; |
471 | $done->recv; |
442 | |
472 | |
443 | IDLE WATCHERS |
473 | IDLE WATCHERS |
|
|
474 | $w = AnyEvent->idle (cb => <callback>); |
|
|
475 | |
444 | Sometimes there is a need to do something, but it is not so important to |
476 | Sometimes there is a need to do something, but it is not so important to |
445 | do it instantly, but only when there is nothing better to do. This |
477 | do it instantly, but only when there is nothing better to do. This |
446 | "nothing better to do" is usually defined to be "no other events need |
478 | "nothing better to do" is usually defined to be "no other events need |
447 | attention by the event loop". |
479 | attention by the event loop". |
448 | |
480 | |
… | |
… | |
473 | } |
505 | } |
474 | }); |
506 | }); |
475 | }); |
507 | }); |
476 | |
508 | |
477 | CONDITION VARIABLES |
509 | CONDITION VARIABLES |
|
|
510 | $cv = AnyEvent->condvar; |
|
|
511 | |
|
|
512 | $cv->send (<list>); |
|
|
513 | my @res = $cv->recv; |
|
|
514 | |
478 | If you are familiar with some event loops you will know that all of them |
515 | If you are familiar with some event loops you will know that all of them |
479 | require you to run some blocking "loop", "run" or similar function that |
516 | require you to run some blocking "loop", "run" or similar function that |
480 | will actively watch for new events and call your callbacks. |
517 | will actively watch for new events and call your callbacks. |
481 | |
518 | |
482 | AnyEvent is slightly different: it expects somebody else to run the |
519 | AnyEvent is slightly different: it expects somebody else to run the |
… | |
… | |
547 | after => 1, |
584 | after => 1, |
548 | cb => sub { $result_ready->send }, |
585 | cb => sub { $result_ready->send }, |
549 | ); |
586 | ); |
550 | |
587 | |
551 | # this "blocks" (while handling events) till the callback |
588 | # this "blocks" (while handling events) till the callback |
552 | # calls -<send |
589 | # calls ->send |
553 | $result_ready->recv; |
590 | $result_ready->recv; |
554 | |
591 | |
555 | Example: wait for a timer, but take advantage of the fact that condition |
592 | Example: wait for a timer, but take advantage of the fact that condition |
556 | variables are also callable directly. |
593 | variables are also callable directly. |
557 | |
594 | |
… | |
… | |
614 | into one. For example, a function that pings many hosts in parallel |
651 | into one. For example, a function that pings many hosts in parallel |
615 | might want to use a condition variable for the whole process. |
652 | might want to use a condition variable for the whole process. |
616 | |
653 | |
617 | Every call to "->begin" will increment a counter, and every call to |
654 | Every call to "->begin" will increment a counter, and every call to |
618 | "->end" will decrement it. If the counter reaches 0 in "->end", the |
655 | "->end" will decrement it. If the counter reaches 0 in "->end", the |
619 | (last) callback passed to "begin" will be executed. That callback is |
656 | (last) callback passed to "begin" will be executed, passing the |
620 | *supposed* to call "->send", but that is not required. If no |
657 | condvar as first argument. That callback is *supposed* to call |
|
|
658 | "->send", but that is not required. If no group callback was set, |
621 | callback was set, "send" will be called without any arguments. |
659 | "send" will be called without any arguments. |
622 | |
660 | |
623 | You can think of "$cv->send" giving you an OR condition (one call |
661 | You can think of "$cv->send" giving you an OR condition (one call |
624 | sends), while "$cv->begin" and "$cv->end" giving you an AND |
662 | sends), while "$cv->begin" and "$cv->end" giving you an AND |
625 | condition (all "begin" calls must be "end"'ed before the condvar |
663 | condition (all "begin" calls must be "end"'ed before the condvar |
626 | sends). |
664 | sends). |
… | |
… | |
654 | that are begung can potentially be zero: |
692 | that are begung can potentially be zero: |
655 | |
693 | |
656 | my $cv = AnyEvent->condvar; |
694 | my $cv = AnyEvent->condvar; |
657 | |
695 | |
658 | my %result; |
696 | my %result; |
659 | $cv->begin (sub { $cv->send (\%result) }); |
697 | $cv->begin (sub { shift->send (\%result) }); |
660 | |
698 | |
661 | for my $host (@list_of_hosts) { |
699 | for my $host (@list_of_hosts) { |
662 | $cv->begin; |
700 | $cv->begin; |
663 | ping_host_then_call_callback $host, sub { |
701 | ping_host_then_call_callback $host, sub { |
664 | $result{$host} = ...; |
702 | $result{$host} = ...; |
… | |
… | |
731 | |
769 | |
732 | $cb = $cv->cb ($cb->($cv)) |
770 | $cb = $cv->cb ($cb->($cv)) |
733 | This is a mutator function that returns the callback set and |
771 | This is a mutator function that returns the callback set and |
734 | optionally replaces it before doing so. |
772 | optionally replaces it before doing so. |
735 | |
773 | |
736 | The callback will be called when the condition becomes "true", i.e. |
774 | The callback will be called when the condition becomes (or already |
737 | when "send" or "croak" are called, with the only argument being the |
775 | was) "true", i.e. when "send" or "croak" are called (or were |
738 | condition variable itself. Calling "recv" inside the callback or at |
776 | called), with the only argument being the condition variable itself. |
|
|
777 | Calling "recv" inside the callback or at any later time is |
739 | any later time is guaranteed not to block. |
778 | guaranteed not to block. |
740 | |
779 | |
741 | SUPPORTED EVENT LOOPS/BACKENDS |
780 | SUPPORTED EVENT LOOPS/BACKENDS |
742 | The available backend classes are (every class has its own manpage): |
781 | The available backend classes are (every class has its own manpage): |
743 | |
782 | |
744 | Backends that are autoprobed when no other event loop can be found. |
783 | Backends that are autoprobed when no other event loop can be found. |
745 | EV is the preferred backend when no other event loop seems to be in |
784 | EV is the preferred backend when no other event loop seems to be in |
746 | use. If EV is not installed, then AnyEvent will try Event, and, |
785 | use. If EV is not installed, then AnyEvent will fall back to its own |
747 | failing that, will fall back to its own pure-perl implementation, |
786 | pure-perl implementation, which is available everywhere as it comes |
748 | which is available everywhere as it comes with AnyEvent itself. |
787 | with AnyEvent itself. |
749 | |
788 | |
750 | AnyEvent::Impl::EV based on EV (interface to libev, best choice). |
789 | AnyEvent::Impl::EV based on EV (interface to libev, best choice). |
751 | AnyEvent::Impl::Event based on Event, very stable, few glitches. |
|
|
752 | AnyEvent::Impl::Perl pure-perl implementation, fast and portable. |
790 | AnyEvent::Impl::Perl pure-perl implementation, fast and portable. |
753 | |
791 | |
754 | Backends that are transparently being picked up when they are used. |
792 | Backends that are transparently being picked up when they are used. |
755 | These will be used when they are currently loaded when the first |
793 | These will be used when they are currently loaded when the first |
756 | watcher is created, in which case it is assumed that the application |
794 | watcher is created, in which case it is assumed that the application |
757 | is using them. This means that AnyEvent will automatically pick the |
795 | is using them. This means that AnyEvent will automatically pick the |
758 | right backend when the main program loads an event module before |
796 | right backend when the main program loads an event module before |
759 | anything starts to create watchers. Nothing special needs to be done |
797 | anything starts to create watchers. Nothing special needs to be done |
760 | by the main program. |
798 | by the main program. |
761 | |
799 | |
|
|
800 | AnyEvent::Impl::Event based on Event, very stable, few glitches. |
762 | AnyEvent::Impl::Glib based on Glib, slow but very stable. |
801 | AnyEvent::Impl::Glib based on Glib, slow but very stable. |
763 | AnyEvent::Impl::Tk based on Tk, very broken. |
802 | AnyEvent::Impl::Tk based on Tk, very broken. |
764 | AnyEvent::Impl::EventLib based on Event::Lib, leaks memory and worse. |
803 | AnyEvent::Impl::EventLib based on Event::Lib, leaks memory and worse. |
765 | AnyEvent::Impl::POE based on POE, very slow, some limitations. |
804 | AnyEvent::Impl::POE based on POE, very slow, some limitations. |
766 | AnyEvent::Impl::Irssi used when running within irssi. |
805 | AnyEvent::Impl::Irssi used when running within irssi. |
… | |
… | |
1002 | Event::ExecFlow |
1041 | Event::ExecFlow |
1003 | High level API for event-based execution flow control. |
1042 | High level API for event-based execution flow control. |
1004 | |
1043 | |
1005 | Coro |
1044 | Coro |
1006 | Has special support for AnyEvent via Coro::AnyEvent. |
1045 | Has special support for AnyEvent via Coro::AnyEvent. |
|
|
1046 | |
|
|
1047 | SIMPLIFIED AE API |
|
|
1048 | Starting with version 5.0, AnyEvent officially supports a second, much |
|
|
1049 | simpler, API that is designed to reduce the calling, typing and memory |
|
|
1050 | overhead. |
|
|
1051 | |
|
|
1052 | See the AE manpage for details. |
1007 | |
1053 | |
1008 | ERROR AND EXCEPTION HANDLING |
1054 | ERROR AND EXCEPTION HANDLING |
1009 | In general, AnyEvent does not do any error handling - it relies on the |
1055 | In general, AnyEvent does not do any error handling - it relies on the |
1010 | caller to do that if required. The AnyEvent::Strict module (see also the |
1056 | caller to do that if required. The AnyEvent::Strict module (see also the |
1011 | "PERL_ANYEVENT_STRICT" environment variable, below) provides strict |
1057 | "PERL_ANYEVENT_STRICT" environment variable, below) provides strict |
… | |
… | |
1190 | warn "read: $input\n"; # output what has been read |
1236 | warn "read: $input\n"; # output what has been read |
1191 | $cv->send if $input =~ /^q/i; # quit program if /^q/i |
1237 | $cv->send if $input =~ /^q/i; # quit program if /^q/i |
1192 | }, |
1238 | }, |
1193 | ); |
1239 | ); |
1194 | |
1240 | |
1195 | my $time_watcher; # can only be used once |
|
|
1196 | |
|
|
1197 | sub new_timer { |
|
|
1198 | $timer = AnyEvent->timer (after => 1, cb => sub { |
1241 | my $time_watcher = AnyEvent->timer (after => 1, interval => 1, cb => sub { |
1199 | warn "timeout\n"; # print 'timeout' about every second |
1242 | warn "timeout\n"; # print 'timeout' at most every second |
1200 | &new_timer; # and restart the time |
|
|
1201 | }); |
|
|
1202 | } |
1243 | }); |
1203 | |
|
|
1204 | new_timer; # create first timer |
|
|
1205 | |
1244 | |
1206 | $cv->recv; # wait until user enters /^q/i |
1245 | $cv->recv; # wait until user enters /^q/i |
1207 | |
1246 | |
1208 | REAL-WORLD EXAMPLE |
1247 | REAL-WORLD EXAMPLE |
1209 | Consider the Net::FCP module. It features (among others) the following |
1248 | Consider the Net::FCP module. It features (among others) the following |
… | |
… | |
1336 | through AnyEvent. The benchmark creates a lot of timers (with a zero |
1375 | through AnyEvent. The benchmark creates a lot of timers (with a zero |
1337 | timeout) and I/O watchers (watching STDOUT, a pty, to become writable, |
1376 | timeout) and I/O watchers (watching STDOUT, a pty, to become writable, |
1338 | which it is), lets them fire exactly once and destroys them again. |
1377 | which it is), lets them fire exactly once and destroys them again. |
1339 | |
1378 | |
1340 | Source code for this benchmark is found as eg/bench in the AnyEvent |
1379 | Source code for this benchmark is found as eg/bench in the AnyEvent |
1341 | distribution. |
1380 | distribution. It uses the AE interface, which makes a real difference |
|
|
1381 | for the EV and Perl backends only. |
1342 | |
1382 | |
1343 | Explanation of the columns |
1383 | Explanation of the columns |
1344 | *watcher* is the number of event watchers created/destroyed. Since |
1384 | *watcher* is the number of event watchers created/destroyed. Since |
1345 | different event models feature vastly different performances, each event |
1385 | different event models feature vastly different performances, each event |
1346 | loop was given a number of watchers so that overall runtime is |
1386 | loop was given a number of watchers so that overall runtime is |
… | |
… | |
1365 | *destroy* is the time, in microseconds, that it takes to destroy a |
1405 | *destroy* is the time, in microseconds, that it takes to destroy a |
1366 | single watcher. |
1406 | single watcher. |
1367 | |
1407 | |
1368 | Results |
1408 | Results |
1369 | name watchers bytes create invoke destroy comment |
1409 | name watchers bytes create invoke destroy comment |
1370 | EV/EV 400000 224 0.47 0.35 0.27 EV native interface |
1410 | EV/EV 100000 223 0.47 0.43 0.27 EV native interface |
1371 | EV/Any 100000 224 2.88 0.34 0.27 EV + AnyEvent watchers |
1411 | EV/Any 100000 223 0.48 0.42 0.26 EV + AnyEvent watchers |
1372 | CoroEV/Any 100000 224 2.85 0.35 0.28 coroutines + Coro::Signal |
1412 | Coro::EV/Any 100000 223 0.47 0.42 0.26 coroutines + Coro::Signal |
1373 | Perl/Any 100000 452 4.13 0.73 0.95 pure perl implementation |
1413 | Perl/Any 100000 431 2.70 0.74 0.92 pure perl implementation |
1374 | Event/Event 16000 517 32.20 31.80 0.81 Event native interface |
1414 | Event/Event 16000 516 31.16 31.84 0.82 Event native interface |
1375 | Event/Any 16000 590 35.85 31.55 1.06 Event + AnyEvent watchers |
1415 | Event/Any 16000 1203 42.61 34.79 1.80 Event + AnyEvent watchers |
1376 | IOAsync/Any 16000 989 38.10 32.77 11.13 via IO::Async::Loop::IO_Poll |
1416 | IOAsync/Any 16000 1911 41.92 27.45 16.81 via IO::Async::Loop::IO_Poll |
1377 | IOAsync/Any 16000 990 37.59 29.50 10.61 via IO::Async::Loop::Epoll |
1417 | IOAsync/Any 16000 1726 40.69 26.37 15.25 via IO::Async::Loop::Epoll |
1378 | Glib/Any 16000 1357 102.33 12.31 51.00 quadratic behaviour |
1418 | Glib/Any 16000 1118 89.00 12.57 51.17 quadratic behaviour |
1379 | Tk/Any 2000 1860 27.20 66.31 14.00 SEGV with >> 2000 watchers |
1419 | Tk/Any 2000 1346 20.96 10.75 8.00 SEGV with >> 2000 watchers |
1380 | POE/Event 2000 6328 109.99 751.67 14.02 via POE::Loop::Event |
1420 | POE/Any 2000 6951 108.97 795.32 14.24 via POE::Loop::Event |
1381 | POE/Select 2000 6027 94.54 809.13 579.80 via POE::Loop::Select |
1421 | POE/Any 2000 6648 94.79 774.40 575.51 via POE::Loop::Select |
1382 | |
1422 | |
1383 | Discussion |
1423 | Discussion |
1384 | The benchmark does *not* measure scalability of the event loop very |
1424 | The benchmark does *not* measure scalability of the event loop very |
1385 | well. For example, a select-based event loop (such as the pure perl one) |
1425 | well. For example, a select-based event loop (such as the pure perl one) |
1386 | can never compete with an event loop that uses epoll when the number of |
1426 | can never compete with an event loop that uses epoll when the number of |
… | |
… | |
1397 | benchmark machine, handling an event takes roughly 1600 CPU cycles with |
1437 | benchmark machine, handling an event takes roughly 1600 CPU cycles with |
1398 | EV, 3100 CPU cycles with AnyEvent's pure perl loop and almost 3000000 |
1438 | EV, 3100 CPU cycles with AnyEvent's pure perl loop and almost 3000000 |
1399 | CPU cycles with POE. |
1439 | CPU cycles with POE. |
1400 | |
1440 | |
1401 | "EV" is the sole leader regarding speed and memory use, which are both |
1441 | "EV" is the sole leader regarding speed and memory use, which are both |
1402 | maximal/minimal, respectively. Even when going through AnyEvent, it uses |
1442 | maximal/minimal, respectively. When using the AE API there is zero |
|
|
1443 | overhead (when going through the AnyEvent API create is about 5-6 times |
|
|
1444 | slower, with other times being equal, so still uses far less memory than |
1403 | far less memory than any other event loop and is still faster than Event |
1445 | any other event loop and is still faster than Event natively). |
1404 | natively. |
|
|
1405 | |
1446 | |
1406 | The pure perl implementation is hit in a few sweet spots (both the |
1447 | The pure perl implementation is hit in a few sweet spots (both the |
1407 | constant timeout and the use of a single fd hit optimisations in the |
1448 | constant timeout and the use of a single fd hit optimisations in the |
1408 | perl interpreter and the backend itself). Nevertheless this shows that |
1449 | perl interpreter and the backend itself). Nevertheless this shows that |
1409 | it adds very little overhead in itself. Like any select-based backend |
1450 | it adds very little overhead in itself. Like any select-based backend |
… | |
… | |
1479 | In this benchmark, we use 10000 socket pairs (20000 sockets), of which |
1520 | In this benchmark, we use 10000 socket pairs (20000 sockets), of which |
1480 | 100 (1%) are active. This mirrors the activity of large servers with |
1521 | 100 (1%) are active. This mirrors the activity of large servers with |
1481 | many connections, most of which are idle at any one point in time. |
1522 | many connections, most of which are idle at any one point in time. |
1482 | |
1523 | |
1483 | Source code for this benchmark is found as eg/bench2 in the AnyEvent |
1524 | Source code for this benchmark is found as eg/bench2 in the AnyEvent |
1484 | distribution. |
1525 | distribution. It uses the AE interface, which makes a real difference |
|
|
1526 | for the EV and Perl backends only. |
1485 | |
1527 | |
1486 | Explanation of the columns |
1528 | Explanation of the columns |
1487 | *sockets* is the number of sockets, and twice the number of "servers" |
1529 | *sockets* is the number of sockets, and twice the number of "servers" |
1488 | (as each server has a read and write socket end). |
1530 | (as each server has a read and write socket end). |
1489 | |
1531 | |
… | |
… | |
1495 | forwarding it to another server. This includes deleting the old timeout |
1537 | forwarding it to another server. This includes deleting the old timeout |
1496 | and creating a new one that moves the timeout into the future. |
1538 | and creating a new one that moves the timeout into the future. |
1497 | |
1539 | |
1498 | Results |
1540 | Results |
1499 | name sockets create request |
1541 | name sockets create request |
1500 | EV 20000 69.01 11.16 |
1542 | EV 20000 62.66 7.99 |
1501 | Perl 20000 73.32 35.87 |
1543 | Perl 20000 68.32 32.64 |
1502 | IOAsync 20000 157.00 98.14 epoll |
1544 | IOAsync 20000 174.06 101.15 epoll |
1503 | IOAsync 20000 159.31 616.06 poll |
1545 | IOAsync 20000 174.67 610.84 poll |
1504 | Event 20000 212.62 257.32 |
1546 | Event 20000 202.69 242.91 |
1505 | Glib 20000 651.16 1896.30 |
1547 | Glib 20000 557.01 1689.52 |
1506 | POE 20000 349.67 12317.24 uses POE::Loop::Event |
1548 | POE 20000 341.54 12086.32 uses POE::Loop::Event |
1507 | |
1549 | |
1508 | Discussion |
1550 | Discussion |
1509 | This benchmark *does* measure scalability and overall performance of the |
1551 | This benchmark *does* measure scalability and overall performance of the |
1510 | particular event loop. |
1552 | particular event loop. |
1511 | |
1553 | |
… | |
… | |
1624 | As you can see, the AnyEvent + EV combination even beats the |
1666 | As you can see, the AnyEvent + EV combination even beats the |
1625 | hand-optimised "raw sockets benchmark", while AnyEvent + its pure perl |
1667 | hand-optimised "raw sockets benchmark", while AnyEvent + its pure perl |
1626 | backend easily beats IO::Lambda and POE. |
1668 | backend easily beats IO::Lambda and POE. |
1627 | |
1669 | |
1628 | And even the 100% non-blocking version written using the high-level (and |
1670 | And even the 100% non-blocking version written using the high-level (and |
1629 | slow :) AnyEvent::Handle abstraction beats both POE and IO::Lambda by a |
1671 | slow :) AnyEvent::Handle abstraction beats both POE and IO::Lambda |
1630 | large margin, even though it does all of DNS, tcp-connect and socket I/O |
1672 | higher level ("unoptimised") abstractions by a large margin, even though |
1631 | in a non-blocking way. |
1673 | it does all of DNS, tcp-connect and socket I/O in a non-blocking way. |
1632 | |
1674 | |
1633 | The two AnyEvent benchmarks programs can be found as eg/ae0.pl and |
1675 | The two AnyEvent benchmarks programs can be found as eg/ae0.pl and |
1634 | eg/ae2.pl in the AnyEvent distribution, the remaining benchmarks are |
1676 | eg/ae2.pl in the AnyEvent distribution, the remaining benchmarks are |
1635 | part of the IO::lambda distribution and were used without any changes. |
1677 | part of the IO::Lambda distribution and were used without any changes. |
1636 | |
1678 | |
1637 | SIGNALS |
1679 | SIGNALS |
1638 | AnyEvent currently installs handlers for these signals: |
1680 | AnyEvent currently installs handlers for these signals: |
1639 | |
1681 | |
1640 | SIGCHLD |
1682 | SIGCHLD |
… | |
… | |
1708 | "AnyEvent::Util::guard". This speeds up guards considerably (and |
1750 | "AnyEvent::Util::guard". This speeds up guards considerably (and |
1709 | uses a lot less memory), but otherwise doesn't affect guard |
1751 | uses a lot less memory), but otherwise doesn't affect guard |
1710 | operation much. It is purely used for performance. |
1752 | operation much. It is purely used for performance. |
1711 | |
1753 | |
1712 | JSON and JSON::XS |
1754 | JSON and JSON::XS |
1713 | This module is required when you want to read or write JSON data via |
1755 | One of these modules is required when you want to read or write JSON |
1714 | AnyEvent::Handle. It is also written in pure-perl, but can take |
1756 | data via AnyEvent::Handle. It is also written in pure-perl, but can |
1715 | advantage of the ultra-high-speed JSON::XS module when it is |
1757 | take advantage of the ultra-high-speed JSON::XS module when it is |
1716 | installed. |
1758 | installed. |
1717 | |
1759 | |
1718 | In fact, AnyEvent::Handle will use JSON::XS by default if it is |
1760 | In fact, AnyEvent::Handle will use JSON::XS by default if it is |
1719 | installed. |
1761 | installed. |
1720 | |
1762 | |