Help for this page

Select Code to Download


  1. or download this
    
my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(aa bb cc dd ee ff gg hh jj kk ll
+));
  2. or download this
    my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(!zz));