| … | |
… | |
| 209 | |
209 | |
| 210 | @todo = reverse @ARGV; |
210 | @todo = reverse @ARGV; |
| 211 | |
211 | |
| 212 | while () { |
212 | while () { |
| 213 | if (@todo) { |
213 | if (@todo) { |
| 214 | printf "(%d)",scalar @todo;$|=1;#d# |
|
|
| 215 | my $seed = pop @todo; |
214 | my $seed = pop @todo; |
| 216 | $seed =~ s/\/+$//; |
215 | $seed =~ s/\/+$//; |
| 217 | aio_lstat "$seed/.", sub { |
216 | aio_lstat "$seed/.", sub { |
| 218 | if ($_[0]) { |
217 | if ($_[0]) { |
| 219 | print STDERR "$seed: $!\n"; |
218 | print STDERR "$seed: $!\n"; |
| … | |
… | |
| 222 | } else { |
221 | } else { |
| 223 | printfn "", $seed, "/"; |
222 | printfn "", $seed, "/"; |
| 224 | } |
223 | } |
| 225 | }; |
224 | }; |
| 226 | } else { |
225 | } else { |
| 227 | print "w";$|=1;#d# |
|
|
| 228 | IO::AIO::poll_wait; |
226 | IO::AIO::poll_wait; |
| 229 | } |
227 | } |
| 230 | |
228 | |
| 231 | last unless IO::AIO::nreqs; |
229 | last unless IO::AIO::nreqs; |
| 232 | |
230 | |
