Get File list from the path

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Get File list from the path by pc88mxer (Vicar) on Apr 23, 2008 at 19:13 UTC
I'm guessing you want a list of all files in a directory including those in sub-directories. If so, the following will work under Windows and Unix systems: `use File::Find; my @list; find(sub { push(@list, $File::Find::name) }, "/your/path"); # @list contains all file objects at and under /your/path` [download] To include only files, modify as follows: `find(sub { -f $_ && push(@list, $File::Find::name); 1 }, "/your/path") +;` [download]	[reply] [d/l] [select]
Re^2: Get File list from the path by mandarin (Hermit) on Apr 24, 2008 at 08:02 UTC
another alternative would be to use File::Util `use File::Util; my($f) = File::Util->new(); my($dirs, $files) = $f->list_dir('your/root/directory', qw/--recur +se --as-ref/);` [download] see File::Util for details	[reply] [d/l]
Re: Get File list from the path by hydrodog (Novice) on Apr 23, 2008 at 19:19 UTC
If it's just a fixed depth, the quick way is globbing: `my @list = <dir/*.dat>; print join("\n", @list);` [download] for a recursive solution, the only way I know is to used opendir, readdir, closedir and write a recursive subroutine processing the files one at a time.	[reply] [d/l]
Re: Get File list from the path by ferreira (Chaplain) on Apr 24, 2008 at 15:20 UTC
File::Finder is an option too. `use File::Finder; my @files = File::Finder->type('f')->in($dir);` [download]	[reply] [d/l]