On Thursday 22 Apr 2010 15:03:05 Harry Putnam wrote: > Thomas Bätzler <t.baetz...@bringe.com> writes: > > Harry Putnam <rea...@newsguy.com> wrote: [SNIP] > I pointed to that exact piece of code then asked how to make that > kind of options setting when using this format of find() > > find( > sub { > if(bla){ > blabla > } > }, > @dir > ); >
Not sure if it's possible. Just use the syntax below - it's equivalent. Due to Perl's argument passing syntax and semantics, you are sometimes unable to use a function signature to pass extra arguments. Regards, Shlomi Fish > Your proposed code > > > find( { > > > > wanted => sub { > > > > print "$_\n"; > > print "$File::Find::name\n"; > > if ($lastfld eq $_) { > > > > print "<$lastfld> matches <$_>; Lets check the size:\n"; > > my $size = (stat($File::Find::name))[7]; > > print "$File::Find::name size: $size\n"; > > > > } > > > > }, > > no_chdir => 1, > > > > }, > > $dir2 > > > > ); > > doesn't do that. -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ First stop for Perl beginners - http://perl-begin.org/ Deletionists delete Wikipedia articles that they consider lame. Chuck Norris deletes deletionists whom he considers lame. Please reply to list if it's a mailing list post - http://shlom.in/reply . -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/