Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Quick File::Find Question

by r.joseph (Hermit)
on May 06, 2001 at 04:49 UTC ( [id://78308] : perlquestion . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    while (<MAINDB>) {
       find(\&wanted(\*C_LOG, \*R_LOG), $_);
    }
    
  2. or download this
    Not a CODE reference at C:/Perl/lib/File/Find.pm 
    line 432, <MAINDB> line 1.
    
  3. or download this
    sub wanted {
      my $clog_filehandle = shift;
    ...
                  $clog_filehandle, 
                  $rlog_filehandle) if (-f $f);
    }