… | |
… | |
12 | aio_unlink "/tmp/file", sub { }; |
12 | aio_unlink "/tmp/file", sub { }; |
13 | |
13 | |
14 | aio_read $fh, 30000, 1024, $buffer, 0, sub { |
14 | aio_read $fh, 30000, 1024, $buffer, 0, sub { |
15 | $_[0] > 0 or die "read error: $!"; |
15 | $_[0] > 0 or die "read error: $!"; |
16 | }; |
16 | }; |
|
|
17 | |
|
|
18 | # AnyEvent |
|
|
19 | open my $fh, "<&=" . IO::AIO::poll_fileno or die "$!"; |
|
|
20 | my $w = AnyEvent->io (fh => $fh, poll => 'r', cb => sub { IO::AIO::poll_cb }); |
17 | |
21 | |
18 | # Event |
22 | # Event |
19 | Event->io (fd => IO::AIO::poll_fileno, |
23 | Event->io (fd => IO::AIO::poll_fileno, |
20 | poll => 'r', |
24 | poll => 'r', |
21 | cb => \&IO::AIO::poll_cb); |
25 | cb => \&IO::AIO::poll_cb); |