Help for this page

Select Code to Download


  1. or download this
    my @dirs = ("/web/directory/AA", "/web/directory/BB",           "/web/
+directory/CC");
find(\&search, @dirs);
  2. or download this
    my $dir = '/web/directory';
my @subdirs= qw( AA BB CC);
my @dirs= map { "$dir/$_"} @subdirs;
find(\&search, @dirs);