Is there a way (in Perl) to pass a list of arguments to an 'anonymous' subroutine? To give you a better idea of what I mean, take a look at the code below:

#!/usr/local/bin/perl -w 
use strict;

sub foo {
    $_[0]->();
}

sub bar {
    print "here: $_[0];\n";
}

# invoke directly
&bar("foo");

# invoke 'indirectly'
# however, there's no way to pass in arguments to an
# anonymouse subroutine?
# (note: will die with use strict since @_ would
# not have been initialized)
# foo (sub { print "here: $_[0];\n"; });

# say, like this...
 foo (sub ("foo") { print "here: $_[0];\n"; });

# or, even (rather wicked)...
# foo (sub { print "here: $_[0];\n"; }("foo"));

# i know it looks absurd; however, shouldn't there
# be a quicker way to make a do with anonymous subs
# rather than using explicit sub declarations
# when there's a need to also pass certain arguments
# to the anonymous sub?
[download]

I stumbled across this problem while thinking of how to replace my `find ... ` commands with the find() subroutine implemented in File::Find module. According to docs, find() may accept a reference to a sub, which really benefited my code in that I didn't have to modify it much. However, I still have to pass 'custom' skip matches (for files/directories) in form of an argument in order to achieve desired results.

Here's an example of the code where find() might be used:

use File::Find;

sub get_subdirs {
    my ($dir,$skip_match) = @_;

    # i can't figure how to pass $skip_match?? so that it could be use
+d
    # inside the anonymous sub invoked by find().
    my @dirs = find(sub { (my ($dev,$ino,$mode,$nlink,$uid,$gid) = lst
+at($_)) && -d _; }, $dir);
    \@dirs;
}
[download]

thanks for your help.

"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith