File finder and callback : File « File « Perl

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/;

All other trademarks are property of their respective owners.