File::Find and non global Variables

Skeeve has asked for the wisdom of the Perl Monks concerning the following question:

I'm asking myself how to not use global variables for File::Find.

Currently my finds look like this:

my @files;
find( sub {
    push( @files, $_ );
}, @my_directories );
[download]

So I push into the global variable, but I don't really like this. I'd love to have local variables here. Is there an easy solution to it I haven't thought of yet?

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Comment on File::Find and non global Variables Select or Download Code

Replies are listed 'Best First'.
Re: File::Find and non global Variables by Corion (Patriarch) on Jul 20, 2006 at 09:48 UTC
Use a bare block to limit the scope of your variables: `{ my @files; find( sub { push @files, $_ }, @my_directories ); # ... do stuff to @files }; # @files is invisible here` [download]	[reply] [d/l]
Re: File::Find and non global Variables by Ovid (Cardinal) on Jul 20, 2006 at 09:54 UTC
Or use File::Find::Rule: `my @files = File::Find::Rule->file->in( @my_directories );` Cheers, Ovid New address of my CGI Course.	[reply] [d/l]
Re: File::Find and non global Variables by davorg (Chancellor) on Jul 20, 2006 at 09:57 UTC
Could you switch to Find::File::Rule. Lightly adapting the POD would suggest something like this: `use File::Find::Rule; my @files = File::Find::Rule->file() ->in( @my_directories );` [download] -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply] [d/l]
Re: File::Find and non global Variables by Tanktalus (Canon) on Jul 20, 2006 at 13:55 UTC
Um - @files isn't a global variable. It's a lexical variable as it is defined with my. The anonymous sub that you're passing to find is closed on the lexical @files. Thus, your example already is how to avoid using globals with File::Find.	[reply]