Answer: How do I recursively process every file in a given directory? contributed by Dominus use File::Find; find (\&wanted, $DIRECTORY); sub wanted { # this subroutine gets called once for each file # Inside this subroutine, $_ is set to the # name of the current file and the current # directory is the directory where that file # is stored } See the manual for File::Find for more complete details.

Answer: How do I recursively process every file in a given directory? contributed by marcos I would use opendir and readdir: opendir (DIR, $dir) or die "cannot opendir $dir"; foreach my $file (readdir(DIR)) { &process_file ($file); } closedir (DIR); [download] or to process ONLY files: my @only_files = grep {-f "$dir/$_"} readdir(DIR); foreach my $file (@only_files) { &process_file ($file); } [download] and finally a one-line-do-everything version (my favorite one): map {&process_file} grep {-f "$dir/$_"} readdir(DIR); [download] marcos

Answer: How do I recursively process every file in a given directory? contributed by tenatious You can also use File::Recurse use File::Recurse; recurse(\&function, "/path/to/directory/to/recurse"); exit; sub function { shift; print "$_\n" ; } [download]

Answer: How do I recursively process every file in a given directory? contributed by a_login tenatious: i tried your code and it wouldn't work for me. first the function is Recurse and not recurse. the arguments to the function are a reference to an array of directories and a reference to a hash of options. while playing with it i came up with: #! /usr/bin/perl use strict; use warnings; MAIN: { my @SDIRS; my %dirs; my %rules; $SDIRS[0] = "./"; #$rules{match} =; use File::Recurse; %dirs = Recurse(\@SDIRS, \%rules); my ($key, $value, @atmp); while (($key,$value) = each %dirs) { @atmp = @{$value}; foreach(@atmp){ #here $key is the path to a file #and $_ is the file itsself print $key."/".$_."\n"; } } exit 0; } [download]

Please (register and) log in if you wish to add an answer