Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Why I hate File::Find and how I (hope I) fixed it

by Jenda (Abbot)
on May 21, 2008 at 02:15 UTC ( #687696=note: print w/replies, xml ) Need Help??

in reply to Why I hate File::Find and how I (hope I) fixed it

Sorry for a very late reply to an old post.

I do not see how is

# create various wnated functions my $wanted= make_wanted( \&wanted_1, 'toto', 'tata'); find( $wanted, '.'); print "\n";
better than
find( sub{ wanted_1( 'toto', 'tata')}, '.'); print "\n";

If you did want to play around I'd suggest something a bit different.

use File::Find; sub callback (&) { my $sub = shift(); return sub { my @args = @_; return sub { $sub->(@args); } } } my $wanted = callback { my ($some, $params) = @_; print "wanted( $some, $params); \$_ = $_\n"; # ... }; find( $wanted->(1,2), 'd:\temp\copy'); find( $wanted->(20,19), 'd:\temp\copy');
or even better
#... *wanted = callback { my ($some, $params) = @_; print "wanted( $some, $params); \$_ = $_\n"; # ... }; find( wanted(1,2), 'd:\temp\copy'); find( wanted(20,19), 'd:\temp\copy');
How do you like this one?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://687696]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2018-01-23 18:43 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (252 votes). Check out past polls.