File Perl

  1. Home
  2. Perl
  3. File
  4. File finder and callback
use File::Find;
find(\&wanted, '/httpd', '/ellie/testing' );
sub wanted{
    -d $_ && print "$File::Find::name\n";
}