Populating an array with contents of a directory.

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

Replies are listed 'Best First'.
Re: Populating an array with contents of a directory. by Zaxo (Archbishop) on Apr 09, 2004 at 16:30 UTC
glob or readdir, for example: `my $dir = '/path/to'; my @names = glob "$dir/*";` [download] After Compline, Zaxo	[reply] [d/l]
Re: Populating an array with contents of a directory. by fletcher_the_dog (Friar) on Apr 09, 2004 at 18:31 UTC
Try 'readdir' in list context: `opendir(DIR,"/home"); my @array = readdir(DIR);` [download]	[reply] [d/l]
Re: Populating an array with contents of a directory. by Anonymous Monk on Apr 09, 2004 at 19:39 UTC
To use Zaxo's solution and get file size you may do something like this. `#!/usr/bin/perl use strict; use warnings; my $dir = '/path'; my @names = map {[$_, -s]} glob "$dir/*"; for (@names) { printf "%-10s%s\n", reverse @$_; }` [download] The -s function gives the size of the file. See perldoc perlfunc. The explanation of -s and other file test operators is given near the beginning of the docs here. Hope this helps. Chris	[reply] [d/l]
Re: Populating an array with contents of a directory. by disciple (Pilgrim) on Apr 10, 2004 at 00:37 UTC
This one only returns files, excluding directories. It doesn't pull in the size of the file, but depending on where you need it, you can get that using the -s file test operator. `#!/usr/bin/perl use strict; use warnings; my $dir = 'c:\\temp'; opendir(DIRHANDLE, $dir) or warn "Could not open directory $dir.\n"; my @dirs = grep (!/^\.\.?$/ && -f "$dir/$_", readdir(DIRHANDLE)); foreach (@dirs) { print "$_\n"; }` [download]	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.