use File::Find;
use Cwd;
$\ = "\n";
my @files;
find sub {
    print $File::Find::name if -f;
    # or: 
    push @files, $File::Find::name if -f;
}, @ARGV ? @ARGV : cwd;  # pass dir(s) as command line argument, or us
+e current directory
[download]

use File::Find;
my @files;
find(
   sub {
     push (@files, "$File::Find::dir/$_"); },

   '/var/www/dir', '/var/www/anotherdir',
   );
[download]

use File::Find;

find sub {
  print $File::Find::name if -f _;
}, '/some/dir';
[download]

As far as I know there is no full free online version of the cookbook. But it is available in the oreilly safari site.

Updated code fragment.

Had if there been one example in the docs like the above I wouldn't have bothered you....Thanks.

I was intereseted to see the use of File::Find::Name and File::Fine::Dir

Thanks

I agree, wish the documentation had this. Had the same problem a while ago and it took me way longer than it should have to do such an obvious thing.

cli$ perl -MFile::Find -e 'find( sub{ print $File::Find::name,$/ }, ".
+" )'
[download]