How can I read a directory in Perl with one statement?

Question

I am writing a script that searches for specific files in a directory and processes them. I continue to write the following:

opendir DIR, $dir;
@files = readdir DIR;
closedir DIR;

While I could (and really should) wrap this in a function, I was wondering if there is a more elegant way to do this?

Answer 1

The most elegant is to use a function that someone else wrote.

use File::Slurp;

@files = read_dir $dir;  # . and .. are removed by default

Answer 2

Another way would be to use a block do:

my @files = do {
    opendir my $d, '/your/dir/';
    readdir $d;
};

, $d ( DIR ), , , $d .

/I3az/

Answer 3

File:: Find .

Answer 4

glob? , :

@files = glob("$dir/*");

, , , :

@files = glob("$dir/{.,}*")

Answer 5

glob - . , , , .