Return to Snippet

Revision: 11141
at January 26, 2009 01:57 by counter202


Initial Code
use File::Find;
@DIRLIST ="C\:\\Downloads\\";

sub process_file {
    # do whatever;
    print "$File::Find::name\n";

}
find(\&process_file, @DIRLIST);

Initial URL
http://docstore.mik.ua/orelly/perl/cookbook/ch09_08.htm

Initial Description


Initial Title
Recipe 9.7. Processing All Files in a Directory Recursively

Initial Tags
files

Initial Language
Perl