Re: Re: file::find question

Thanks for the help!!

I need to remember the global vs filescope stuff, as I am really not using a global, but a file scope lexical (my).

I need to pass a function to find because it is pretty long...so I *really* don't want to use "sub {}"

With that in mind, there is no way around this?

BTW, when I use Tk, it allows you to pass

[\&sub, $var1, var2]
[download]

ANYWHERE it takes a function reference, but I am assuming that it is Tk specific...

Guess I'll stick with the 'my' variable if need be ;-)

Comment on Re: Re: file::find question Download Code

Replies are listed 'Best First'.
Re: Re: Re: file::find question by dakkar (Hermit) on Nov 21, 2002 at 11:10 UTC
You can write: `{ # enclosing scope my @found_files; sub criteria { # do the right thing } } find(\&criteria,$dir);` [download] Of course, now you have to decide how large a part of your script needs access to the `@found_files` variable. -- dakkar - Mobilis in mobile	[reply] [d/l]
Re: Re: Re: file::find question by jdporter (Paladin) on Nov 21, 2002 at 15:48 UTC
You know, I could probably help you better if you'd say what it is you're trying to do. If you're just using File::Find to find a list of filenames, and then doing something with those names later, you could write a little wrapper around find like this: `sub find_files(&@) { my( $criteria_cr, @dirs ) = @_; my @found; find( sub { $criteria_cr->( $File::Find::name ) and push @found, $File::Find::name; }, @dirs ); @found } # then you could call it like this: my @html_files = find_files { /\.html$/ } '.'; my @abc_subdirs = find_files { -d $_[0] } 'a', 'b', 'c';` [download] Don't be afraid to use 'my' variables for purposes such as this. It is the very natural, perlish thing to do. jdporter ...porque es dificil estar guapo y blanco.	[reply] [d/l]