Ez a dokumentum egy előző változata!
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;