Perl Directory Listing Windows/Unix

[alfie002]

Dear all,

I have been trying to track down a Perl Module that I can use to list directories ( similar to the FTP module (ls command)), on Unix and hopefully Win32, with the same code. I found one called File::Listing but cannot get it to work. Am I using the right one or should I be using more suitable ???

Thanks

Alf

 

[Kirsle]

opendir (DIR, "/directory/to/read");
print join ("\n", readdir(DIR));
closedir (DIR);

-------------
Kirsle.net | Kirsle's Programs and Projects

 

[alfie002]

Thanks Kirsle's, I'll give this a go.

Alf

 

[alfie002]

Kirsle's,

if I wanted to assign the results from

opendir (DIR, "/directory/to/read");
print join ("\n", readdir(DIR));
closedir (DIR);


to a global variable within the main script, would I do something like this;

@alfie002 = ( opendir (DIR, "/directory/to/read");
print join ("\n", readdir(DIR));
closedir (DIR);
)

or create a function and then assign the function to alfie002 ?

Any help appreciated

Thanks

Alf

 

[Kirsle]

opendir (DIR, "/directory/to/read");
my @files = readdir(DIR);
closedir (DIR);

readdir returns an array. ;-)

-------------
Kirsle.net | Kirsle's Programs and Projects

 

[alfie002]

thanks Kirsle

 

[Extension]

While on the subject, I would like to know if there is a way to ignore the "." and/or ".." assigned for the parent directories. I always used the grep function against the array to filter only real files or directory ? Any other more simple way to achieve this.

When I loop through the array I always get the

.
..
File01.fil
File2.fil

 

[MillerH]

Just grep those files away.

opendir (DIR, "/directory/to/read");
my @files = grep {! /^\.\.?$/} readdir(DIR);
closedir (DIR);

Alternatively, you can use the CPAN File::Slurp module, which filters out . and .. by default.

http://search.cpan.org/search?query=File::Slurp

use File::Slurp qw(read_dir);

my @files = read_dir("/directory/to/read");