Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^5: When should a wheel be reinvented

by etcshadow (Priest)
on Jul 01, 2004 at 02:55 UTC ( [id://370973] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $finder = File::Find->new($opts, @dirs);
    while (my $file = $finder->next) {
       # do stuff
    }
    
  2. or download this
    # simplified a lot, but basically
    sub find {
    ...
            &$wanted
        }
    }
    
  3. or download this
    ------------
    :Wq
    Not an editor command: Wq