Help for this page

Select Code to Download


  1. or download this
    find(\&search, $dirs, $dirs2, $dirs3);
  2. or download this
    my @dirs = ('/web/directory/AA', '/web/directory/BB', '/web/directory/
+CC',);
find(\&search, @dirs);
  3. or download this
    my @dirs = map "/web/directory/$_", 'AA', 'BB', 'CC';
  4. or download this
    find(\&search, map "/web/directory/$_", 'AA', 'BB', 'CC');