… | |
… | |
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 | |