Passing arguments to File::Find

[Stegalex]

I would like to pass an additional argument to File::Find's "find" sub but I am unable to do this because all args after $_[0] are presumed to be filenames. Am I SOL here or can you recommend an alternative approach? I like chicken.

[jplindstrom]

From the POD:

use File::Find;
find({ wanted => \&process, follow => 1 }, '.');

Note the { }.

/J

[Stegalex]

Thanks for the solution. I am sorry for overlooking this. I added another element to the hash named "foo" and then dereferenced it in &process() by saying:

${$_[0]}{foo}

I like chicken.

[mirod]

Time for a shameless plug: Why I hate File::Find and how I (hope I) fixed it.

[RMGir]

I'm not too clear on what you mean...

If something takes a code ref as an argument, you can always pass more arguments in to the code ref by making a closure.

use strict;
use File::Find;

# make a closure that invokes &$arg2 on any filename that
# ends in $arg1
sub makeExtClosure
{
    my ($ext, $action) = @_;
    return sub {
       /$ext$/ && &$action;
    };
} 

find(makeExtClosure("pod", sub{print "$_\n"}), ".");

Is that what you had in mind?
--
Mike