Mega Code Archive

 

Categories / Perl / File

 

File finder and callback

use File::Find; find(\&wanted, '/httpd', '/ellie/testing' ); sub wanted{     -d $_ && print "$File::Find::name\n"; }