How do I read a directory?

[Anonymous Monk]

How do I read a directory?

Originally posted as a Categorized Question.

[damian1301]

You call opendir, then readdir, and then closedir.

Originally posted as a Categorized Answer.

[tinman]

this node could help too..

yes, shameless self advertisement, I know :o)

Originally posted as a Categorized Answer.

[Anonymous Monk]

The tin man answered my question last time I read here.... what happened to his answer?

Originally posted as a Categorized Answer.

[cLive ;-)]

Use the readdir function. To read only certain files, you can use it with grep. For example:

my $dir = '/path/to/dir';

# read all entries:
opendir DIR, $dir or die "read dir $dir - $!";
my @dir = readdir DIR;
closedir DIR;

# read only cgi scripts:
opendir DIR, $dir or die "read dir $dir - $!";
my @cgi_scripts = grep /\.cgi$/, readdir DIR;
closedir DIR;

# read all but (UNIX style) hidden entries:
opendir DIR, $dir or die "read dir $dir - $!";
my @dir = grep !/^\./, readdir DIR;
closedir DIR;

[Sherlock]

This is very good, but there is one error:



open DIR, $dir || die $!;

should be:



opendir DIR, $dir || die $!;



- Sherlock

[I0]

Don't you mean

opendir DIR, $dir or die $!;

or

(opendir DIR, $dir) || die $!;

[hippo]

With Path::Tiny and using the children method:

use Path::Tiny 0.028;

my $dir = path ('/path/to/dir');

# Retrieve all entries except '.' and '..'
my @all  = $dir->children ();

# Alternatively, retrieve a subset - here just the perl scripts
my @perl = $dir->children (qr/\.pl$/);