ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/bin/treescan
(Generate patch)

Comparing IO-AIO/bin/treescan (file contents):
Revision 1.1 by root, Mon Sep 10 11:24:20 2007 UTC vs.
Revision 1.4 by root, Mon Aug 23 19:19:13 2010 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3# inspired by treescan by Jamie Lokier <jamie@imbolc.ucc.ie> 3# inspired by treescan by Jamie Lokier <jamie@imbolc.ucc.ie>
4# about 40% faster than the original version (on my fs and raid :) 4# about 40% faster than the original version (on my fs and raid :)
5 5
6use strict;
6use Getopt::Long; 7use Getopt::Long;
7use IO::AIO; 8use IO::AIO;
8 9
9Getopt::Long::Configure ("bundling", "no_ignore_case", "require_order"); 10our $VERSION = $IO::AIO::VERSION;
10 11
12Getopt::Long::Configure ("bundling", "no_ignore_case", "require_order", "auto_help", "auto_version");
13
11my ($opt_silent, $opt_print0, $opt_stat); 14my ($opt_silent, $opt_print0, $opt_stat, $opt_nodirs, $opt_nofiles);
12 15
13GetOptions 16GetOptions
14 "quiet|q" => \$opt_silent, 17 "quiet|q" => \$opt_silent,
15 "print0|0" => \$opt_print0, 18 "print0|0" => \$opt_print0,
16 "stat|s" => \$opt_stat, 19 "stat|s" => \$opt_stat,
17; 20 "dirs|d" => \$opt_nofiles,
21 "files|f" => \$opt_nodirs,
22 or die "Usage: try $0 --help";
18 23
19@ARGV = "." unless @ARGV; 24@ARGV = "." unless @ARGV;
20 25
21sub printfn { 26sub printfn {
22 my ($path, $files, $suffix) = @_; 27 my ($prefix, $files, $suffix) = @_;
23 28
24 if ($opt_print0) { 29 if ($opt_print0) {
25 print map "$path/$_$suffix\0", @$files; 30 print map "$prefix$_$suffix\0", @$files;
26 } elsif (!$opt_silent) { 31 } elsif (!$opt_silent) {
27 print map "$path/$_$suffix\n", @$files; 32 print map "$prefix$_$suffix\n", @$files;
28 } 33 }
29} 34}
30 35
31sub scan { 36sub scan {
32 my ($path) = @_; 37 my ($path) = @_;
33 38
39 $path .= "/";
40
41 aioreq_pri -1;
34 aio_scandir $path, 8, sub { 42 aio_scandir $path, 8, sub {
35 my ($dirs, $files) = @_; 43 my ($dirs, $files) = @_;
36 44
45 printfn "", [$path] unless $opt_nodirs;
46 printfn $path, $files unless $opt_nofiles;
47
37 if ($opt_stat) { 48 if ($opt_stat) {
38 aio_stat "$path/$_" for @$files; 49 aio_lstat "$path$_" for @$files;
39 } 50 }
40 51
41 for (@$dirs) { 52 &scan ("$path$_") for @$dirs;
42 printfn $path, $dirs, "/";
43 &scan ("$path/$_")
44 }
45
46 printfn $path, $files;
47 }; 53 };
48} 54}
49 55
50IO::AIO::max_outstanding 64; 56IO::AIO::max_outstanding 64;
51IO::AIO::min_parallel 32; 57IO::AIO::min_parallel 32;
52 58
53for my $seed (@ARGV) { 59for my $seed (@ARGV) {
54 $seed =~ s/\/+$//; 60 $seed =~ s/\/+$//;
55 aio_lstat "$seed/.", sub { 61 aio_lstat "$seed/.", sub {
62 if ($_[0]) {
63 print STDERR "$seed: $!\n";
64 } elsif (-d _) {
56 scan $seed if -d _; 65 scan $seed;
66 } else {
67 printfn "", $seed, "/";
68 }
57 }; 69 };
58} 70}
59 71
60IO::AIO::flush; 72IO::AIO::flush;
61 73

Diff Legend

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