File finder and callback : File « File « Perl






  1. Perl
  2. File
  3. File

File finder and callback

    


use File::Find;
find(\&wanted, '/httpd', '/ellie/testing' );

sub wanted{
    -d $_ && print "$File::Find::name\n";
}








Related examples in the same category

1.Copy files
2.Copying a file using the File::Copy
3.Create a directory tree
4.Determine the contents of a directory tree?
5.File size with FIELDS
6.Find file
7.Find out if there's a copy of the dir program on this computer
8.File find closure
9.Using a Callback
10.Extracting file names from paths
11.$File::Find::prune = 1 if /dir1/;