< Perl

Perl fájlok és könyvtárak kezelése

Szerző: Sallai András

Copyright © Sallai András, 2019

CC Attribution-Share Alike 4.0 International

Web: http://szit.hu

Könyvtár tartalma

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;

Könyvtár tartalma . és .. nélkül

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