Re^3: Pass an "extra' variable to Find::File subroutine

You are right, my mistake. If I understand the question correctly, it should actually be

sub myfind {
   my ($code, $source, @args) = @_;
   find(sub { $code->(@args)}, $source)
}

myfind(\&Recursive, $source, $addtional_argument)
[download]

Perl 6 - links to (nearly) everything that is Perl 6.

Comment on Re^3: Pass an "extra' variable to Find::File subroutine Download Code

Replies are listed 'Best First'.
Re^4: Pass an "extra' variable to Find::File subroutine by timtowtdi (Sexton) on Jun 23, 2010 at 05:11 UTC
Thanks, that was exactly it! It works! To be honest: I don't have any idea what the code does (or better: how it works), but for now I'm happy my problem is solved. And for later, I'm gonna try to find out how you solved my problem! :) Thanks again, Tim The great mistake is to anticipate the outcome of the engagement; Let nature take it's course, and your tools will strike at the right moment.	[reply]