[[oktatas:programozás:perl|< Perl]]
====== Perl fájlok és könyvtárak kezelése ======
  * **Szerző:** Sallai András
  * Copyright (c) Sallai András, 2019
  * [[https://creativecommons.org/licenses/by-sa/4.0/|CC Attribution-Share Alike 4.0 International]]
  * Web: http://szit.hu

===== Könyvtár tartalma =====

<code perl>
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;
</code>
===== Könyvtár tartalma . és .. nélkül =====

<code perl main.pl>
#!/usr/bin/perl

my $dir = "/home/valami";
opendir (my $dh, $dir) || die "Hiba! A $dir megnyitása sikertelen!\n";
my @files = grep {!/^\./} readdir($dh);
closedir ($dh);
print "@files\n";
</code>


<code perl main.pl>
#!/usr/bin/perl

my $dir = "/home/valami";
my @files = glob ( "$dir/*.txt" );
print "@files\n";

</code>