http://qs321.pair.com?node_id=78308

r.joseph has asked for the wisdom of the Perl Monks concerning the following question:

Hey All! I know that when you call File::Find::find(\&wanted,"/foo/bar");, the find() function passes some stuff to the wanted() function that it uses internally.

My question is, how do I pass data to the wanted() function without having it complain? Here is a small snippet of code I tried that attemps to pass two filehandles to the wanted() function:
while (<MAINDB>) { find(\&wanted(\*C_LOG, \*R_LOG), $_); }
MAINDB is just a DB of directories to search, and C_LOG and R_LOG are simply two log files that program data needs to print to. However, when I try this, I get this message:
Not a CODE reference at C:/Perl/lib/File/Find.pm line 432, <MAINDB> line 1.
I am assuming that this is dealing with the \&wanted function call and also assume that it is complaining because I tried to pass parameters to it - any thoughts on why this is happening?

P.S. Here is my wanted() function:
sub wanted { my $clog_filehandle = shift; my $rlog_filehandle = shift; # $_ is file name (File::Find thing) my $file = $_; print "In wanted(), checking $file...\n"; copy_file( $file, $clog_filehandle, $rlog_filehandle) if (-f $f); }
Pretty simple - just checks if the file is actually a file (not a directory or something else) and if so calls copy_file([filename],[filehandle1],[filehandle2]); Guess that wasn't exactly a short question, but it should be quick work for my fellow monks who are much more intelligent than I! Thanks a ton!

r. j o s e p h
"Violence is a last resort of the incompetent" - Salvor Hardin, Foundation by Issac Asimov