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/06 16:37] admin [Könyvtár tartalma] |
oktatas:programozas:perl:perl_fajlok_es_koenyvtarak [2019/12/06 16:45] (aktuális) admin [Könyvtár tartalma . és .. nélkül] |
||
---|---|---|---|
Sor 21: | Sor 21: | ||
===== Könyvtár tartalma . és .. nélkül ===== | ===== Könyvtár tartalma . és .. nélkül ===== | ||
- | <code perl> | + | <code perl main.pl> |
- | opendir (my $dh, $dir) || die "Hiba! A $src megnyitása sikertelen!\n"; | + | #!/usr/bin/perl |
- | my @fajlok = grep {!/^\./} readdir($dh); | + | |
+ | my $dir = "/home/valami"; | ||
+ | opendir (my $dh, $dir) || die "Hiba! A $dir megnyitása sikertelen!\n"; | ||
+ | my @files = grep {!/^\./} readdir($dh); | ||
closedir ($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> | ||