Perl: Browse files

Four · 05-07-2007, 04:10 PM

In Perl how may I generate a list of all the files in a directory and store it in an array?

Thanks

indienick · 05-07-2007, 05:43 PM

Code:

#!/usr/bin/perl -w

@listOfFiles = glob("*.*");

foreach $item (@listOfFiles) { print "$item\n"; }

twantrd · 05-07-2007, 08:11 PM

Code:

#!/usr/bin/perl

my @files=`ls /directory/`;
print @file;

-twantrd

bartonski · 05-07-2007, 09:25 PM

This being perl, there's more than one way to do it... there are a couple more options which may give more control over directory access:

readdir() will yield a list of files in an array (when called in list context). You'll have to call opendir() first.

FILE::Find acts somewhat like the unix program find; it will traverse a directory tree, and execute a specified function on each file in the tree.

Both readdir() and File::Find are powerful and sophisticated, and require setup to use, but pay off in that they give an amazing amount of control over which files are processed and how.

I could give examples of how to use both, but they wouldn't do justice to the power of these functions.

Check out

Code:

perldoc File::Find

and

Code:

perldoc perlfunc

[then search for opendir and readdir]

bigearsbilly · 05-08-2007, 04:20 AM

too much DOS

*.* isn't much good as it wont find files without a '.'

indienick · 05-08-2007, 03:28 PM

Very true - thanks bigearsbilly. I feel a little silly right now.

Code:

@listOfFiles = glob("*");