• Szerző: Sallai András
• Copyright © Sallai András, 2019
• CC Attribution-Share Alike 4.0 International
• Web: http://szit.hu

opendir my $dh, $dir or die "Hiba! A könyvtár megnyitása sikertelen!\n";
my @filenames = readdir $dh;
foreach my $filename (@filenames) {
    if ($filename eq '.' or $filenames eq '..') {
        next;
    }
    say $filename;
}
closedir $dh;

opendir (my $dh, $dir) || die "Hiba! A $src megnyitása sikertelen!\n";
my @fajlok = grep {!/^\./} readdir($dh);
closedir ($dh);

main.pl

#!/usr/bin/perl
 
my $dir = "/home/andras";
my @fajlok = glob ( "$dir/*.txt" );
print "@fajlok\n";