Re: passing argument to sub wanted


Keep It Simple, Stupid
	PerlMonks

Re: passing argument to sub wanted

by starbolin (Hermit)

on May 14, 2008 at 15:39 UTC ( [id://686547]=note: print w/replies, xml )

Need Help??

in reply to passing argument to sub wanted

Or... Don't try to do everything inside of your wanted(). Just have wanted() build your array of filenames then iterate over the list, outside of find(), to do the pruning. Performance is not impacted as your runtime is totally dominated by disk access.

my @filelist;
find ( \&callback, @directories );
sub callback { 
    ...
    push @filelist, $_;
}
# Prune the list
my @somefiles = grep { some_code } @filelist;
[download]

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

Comment on Re: passing argument to sub wanted Download Code

Replies are listed 'Best First'.

Re^2: passing argument to sub wanted
by Jenda (Abbot) on May 21, 2008 at 02:01 UTC

And hope the script is not run on a computer where the directories contain too many files. Besides, that code would produce something somewhat usable only if the @directories contained a single directory and that directory had no subdirectories. You only stored the filenames!

The condition in front of the push() is insanely complex, but there is no reason whatsoever not to include the pruning within the wanted() subroutine.

Jenda
Support Denmark!
Defend the free world!

[reply]

In Section Seekers of Perl Wisdom