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

Monks,

Could please advise me. How to get list file name in directory(including sub directory) with path in windows?

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]
      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
[reply]
[d/l]

Back to Seekers of Perl Wisdom