How do I get a listing of only plain files in a directory using Perl?

Question

I'm looking for a way in Perl to list the plain files of a directory. Files only, no directories.

Answer 1

You need to use opendir, readdir and closedir functions in conjunction with -f file test operator:

opendir(my $dh, $some_dir) || die $!;
while(my $f = readdir $dh) {
    next unless (-f "$some_dir/$f");
    print "$some_dir/$f\n";
}
closedir $dh;