ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Linux-AIO/AIO.pm
(Generate patch)

Comparing Linux-AIO/AIO.pm (file contents):
Revision 1.28 by root, Sat Jul 9 04:11:30 2005 UTC vs.
Revision 1.31 by root, Sun Jul 10 01:03:06 2005 UTC

… …
24min_parallel from the same thread that loaded this module. 24min_parallel from the same thread that loaded this module.
25 25
26Although the module will work with in the presence of other threads, it is 26Although the module will work with in the presence of other threads, it is
27not reentrant, so use appropriate locking yourself. 27not reentrant, so use appropriate locking yourself.
28 28
29=head2 API NOTES
30
31All the C<aio_*> calls are more or less thin wrappers around the syscall
32with the same name (sans C<aio_>). The arguments are similar or identical,
33and they all accept an additional C<$callback> argument which must be
34a code reference. This code reference will get called with the syscall
35return code (e.g. most syscalls return C<-1> on error, unlike perl, which
36usually delivers "false") as it's sole argument when the given syscall has
37been executed asynchronously.
38
39All functions that expect a filehandle will also accept a file descriptor.
40
29=over 4 41=over 4
30 42
31=cut 43=cut
32 44
33package Linux::AIO; 45package Linux::AIO;
34 46
35use base 'Exporter'; 47use base 'Exporter';
36 48
37BEGIN { 49BEGIN {
38 $VERSION = 1.61; 50 $VERSION = 1.71;
39 51
40 @EXPORT = qw(aio_read aio_write aio_open aio_close aio_stat aio_lstat aio_unlink); 52 @EXPORT = qw(aio_read aio_write aio_open aio_close aio_stat aio_lstat aio_unlink
53 aio_fsync aio_fdatasync aio_readahead);
41 @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel nreqs); 54 @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel nreqs);
42 55
43 require XSLoader; 56 require XSLoader;
44 XSLoader::load Linux::AIO, $VERSION; 57 XSLoader::load Linux::AIO, $VERSION;
45} 58}
… …
52 65
53It is recommended to keep the number of threads low, as some linux 66It is recommended to keep the number of threads low, as some linux
54kernel versions will scale negatively with the number of threads (higher 67kernel versions will scale negatively with the number of threads (higher
55parallelity => MUCH higher latency). 68parallelity => MUCH higher latency).
56 69
70Under normal circumstances you don't need to call this function, as this
71module automatically starts a single async thread.
72
57=item Linux::AIO::max_parallel $nthreads 73=item Linux::AIO::max_parallel $nthreads
58 74
59Sets the maximum number of AIO threads to C<$nthreads>. If more than 75Sets the maximum number of AIO threads to C<$nthreads>. If more than
60the specified number of threads are currently running, kill them. This 76the specified number of threads are currently running, kill them. This
61function blocks until the limit is reached. 77function blocks until the limit is reached.
62 78
63This module automatically runs C<max_parallel 0> at program end, to ensure 79This module automatically runs C<max_parallel 0> at program end, to ensure
64that all threads are killed and that there are no outstanding requests. 80that all threads are killed and that there are no outstanding requests.
81
82Under normal circumstances you don't need to call this function.
65 83
66=item $fileno = Linux::AIO::poll_fileno 84=item $fileno = Linux::AIO::poll_fileno
67 85
68Return the I<request result pipe filehandle>. This filehandle must be 86Return the I<request result pipe filehandle>. This filehandle must be
69polled for reading by some mechanism outside this module (e.g. Event 87polled for reading by some mechanism outside this module (e.g. Event
70or select, see below). If the pipe becomes readable you have to call 88or select, see below). If the pipe becomes readable you have to call
71C<poll_cb> to check the results. 89C<poll_cb> to check the results.
72 90
91See C<poll_cb> for an example.
92
73=item Linux::AIO::poll_cb 93=item Linux::AIO::poll_cb
74 94
75Process all outstanding events on the result pipe. You have to call this 95Process all outstanding events on the result pipe. You have to call this
76regularly. Returns the number of events processed. Returns immediately 96regularly. Returns the number of events processed. Returns immediately
77when no events are outstanding. 97when no events are outstanding.
78 98
79You can use Event to multiplex, e.g.: 99You can use Event to multiplex, e.g.:
80 100
81 Event->io (fd => Linux::AIO::poll_fileno, 101 Event->io (fd => Linux::AIO::poll_fileno,
82 poll => 'r', async => 1, 102 poll => 'r', async => 1,
83 cb => \&Linux::AIO::poll_cb ); 103 cb => \&Linux::AIO::poll_cb);
84 104
85=item Linux::AIO::poll_wait 105=item Linux::AIO::poll_wait
86 106
87Wait till the result filehandle becomes ready for reading (simply does a 107Wait till the result filehandle becomes ready for reading (simply does a
88select on the filehandle. This is useful if you want to synchronously wait 108select on the filehandle. This is useful if you want to synchronously wait
89for some requests to finish). 109for some requests to finish).
90 110
111See C<nreqs> for an example.
112
91=item Linux::AIO::nreqs 113=item Linux::AIO::nreqs
92 114
93Returns the number of requests currently outstanding. 115Returns the number of requests currently outstanding.
94 116
117Example: wait till there are no outstanding requests anymore:
118
119 Linux::AIO::poll_wait while Linux::AIO::nreqs;
120
95=item aio_open $pathname, $flags, $mode, $callback 121=item aio_open $pathname, $flags, $mode, $callback
96 122
97Asynchronously open or create a file and call the callback with the 123Asynchronously open or create a file and call the callback with the
98filedescriptor (NOT a perl filehandle, sorry for that, but watch out, this 124filedescriptor (NOT a perl filehandle, sorry for that, but watch out, this
99might change in the future). 125might change in the future).
100 126
127The C<$mode> argument is a bitmask. See the C<Fcntl> module for a
128list. They are the same as used in C<sysopen>.
129
130Example:
131
132 aio_open "/etc/passwd", O_RDONLY, 0, sub {
133 if ($_[0] >= 0) {
134 open my $fh, "<&$_[0]"; # create a copy for perl
135 aio_close $_[0], sub { }; # close the aio handle
136 print "open successful, fh is $fh\n";
137 ...
138 } else {
139 die "open failed: $!\n";
140 }
141 };
142
101=item aio_close $fh, $callback 143=item aio_close $fh, $callback
102 144
103Asynchronously close a file and call the callback with the result code. 145Asynchronously close a file and call the callback with the result code.
104 146
105=item aio_read $fh,$offset,$length, $data,$dataoffset,$callback 147=item aio_read $fh,$offset,$length, $data,$dataoffset,$callback
106 148
107=item aio_write $fh,$offset,$length, $data,$dataoffset,$callback 149=item aio_write $fh,$offset,$length, $data,$dataoffset,$callback
108 150
109Reads or writes C<length> bytes from the specified C<fh> and C<offset> 151Reads or writes C<length> bytes from the specified C<fh> and C<offset>
110into the scalar given by C<data> and offset C<dataoffset> and calls the 152into the scalar given by C<data> and offset C<dataoffset> and calls the
111callback without the actual number of bytes read (or C<undef> on error). 153callback without the actual number of bytes read (or -1 on error, just
154like the syscall).
155
156Example: Read 15 bytes at offset 7 into scalar C<$buffer>, strating at
157offset C<0> within the scalar:
158
159 aio_read $fh, 7, 15, $buffer, 0, sub {
160 $_[0] >= 0 or die "read error: $!";
161 print "read <$buffer>\n";
162 };
163
164=item aio_readahead $fh,$offset,$length, $callback
165
166Asynchronously reads the specified byte range into the page cache, using
167the C<readahead> syscall.
168
169readahead() populates the page cache with data from a file so that
170subsequent reads from that file will not block on disk I/O. The C<$offset>
171argument specifies the starting point from which data is to be read and
172C<$length> specifies the number of bytes to be read. I/O is performed in
173whole pages, so that offset is effectively rounded down to a page boundary
174and bytes are read up to the next page boundary greater than or equal to
175(off-set+length). aio_readahead() does not read beyond the end of the
176file. The current file offset of the file is left unchanged.
112 177
113=item aio_stat $fh_or_path, $callback 178=item aio_stat $fh_or_path, $callback
114 179
115=item aio_lstat $fh, $callback 180=item aio_lstat $fh, $callback
116 181
… …
120 185
121Currently, the stats are always 64-bit-stats, i.e. instead of returning an 186Currently, the stats are always 64-bit-stats, i.e. instead of returning an
122error when stat'ing a large file, the results will be silently truncated 187error when stat'ing a large file, the results will be silently truncated
123unless perl itself is compiled with large file support. 188unless perl itself is compiled with large file support.
124 189
190Example: Print the length of F</etc/passwd>:
191
192 aio_stat "/etc/passwd", sub {
193 $_[0] and die "stat failed: $!";
194 print "size is ", -s _, "\n";
195 };
196
125=item aio_unlink $pathname, $callback 197=item aio_unlink $pathname, $callback
126 198
127Asynchronously unlink a file. 199Asynchronously unlink (delete) a file and call the callback with the
200result code.
201
202=item aio_fsync $fh, $callback
203
204Asynchronously call fsync on the given filehandle and call the callback
205with the fsync result code.
206
207=item aio_fdatasync $fh, $callback
208
209Asynchronously call fdatasync on the given filehandle and call the
210callback with the fdatasync result code.
128 211
129=cut 212=cut
130 213
131min_parallel 1; 214min_parallel 1;
132 215

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines