A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
Előző változat mindkét oldalon Előző változat Következő változat | Előző változat | ||
oktatas:programozas:perl:perl_fajlok_es_koenyvtarak [2019/12/01 16:57] admin |
oktatas:programozas:perl:perl_fajlok_es_koenyvtarak [2019/12/06 16:45] (aktuális) admin [Könyvtár tartalma . és .. nélkül] |
||
---|---|---|---|
Sor 18: | Sor 18: | ||
} | } | ||
closedir $dh; | 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> | </code> | ||