… | |
… | |
50 | package Linux::AIO; |
50 | package Linux::AIO; |
51 | |
51 | |
52 | use base 'Exporter'; |
52 | use base 'Exporter'; |
53 | |
53 | |
54 | BEGIN { |
54 | BEGIN { |
55 | $VERSION = 1.71; |
55 | $VERSION = 1.72; |
56 | |
56 | |
57 | @EXPORT = qw(aio_read aio_write aio_open aio_close aio_stat aio_lstat aio_unlink |
57 | @EXPORT = qw(aio_read aio_write aio_open aio_close aio_stat aio_lstat aio_unlink |
58 | aio_fsync aio_fdatasync aio_readahead); |
58 | aio_fsync aio_fdatasync aio_readahead); |
59 | @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel nreqs); |
59 | @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel nreqs); |
60 | |
60 | |
… | |
… | |
138 | |
138 | |
139 | Example: |
139 | Example: |
140 | |
140 | |
141 | aio_open "/etc/passwd", O_RDONLY, 0, sub { |
141 | aio_open "/etc/passwd", O_RDONLY, 0, sub { |
142 | if ($_[0] >= 0) { |
142 | if ($_[0] >= 0) { |
143 | open my $fh, "<&$_[0]"; # create a copy for perl |
143 | open my $fh, "<&=$_[0]"; |
144 | aio_close $_[0], sub { }; # close the aio handle |
|
|
145 | print "open successful, fh is $fh\n"; |
144 | print "open successful, fh is $fh\n"; |
146 | ... |
145 | ... |
147 | } else { |
146 | } else { |
148 | die "open failed: $!\n"; |
147 | die "open failed: $!\n"; |
149 | } |
148 | } |