Felhasználói eszközök
oktatas:programozas:perl:perl_fajlok_es_koenyvtarak
Különbségek
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 | |||
|
oktatas:programozas:perl:perl_fajlok_es_koenyvtarak [2019/12/06 16:43] admin [Könyvtár tartalma . és .. nélkül] |
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> | ||
| Sor 31: | Sor 35: | ||
| #!/usr/bin/perl | #!/usr/bin/perl | ||
| - | my $dir = "/home/andras"; | + | my $dir = "/home/valami"; |
| - | my @fajlok = glob ( "$dir/*.txt" ); | + | my @files = glob ( "$dir/*.txt" ); |
| - | print "@fajlok\n"; | + | print "@files\n"; |
| </code> | </code> | ||
oktatas/programozas/perl/perl_fajlok_es_koenyvtarak.1575646995.txt.gz · Utolsó módosítás: 2019/12/06 16:43 szerkesztette: admin
Hacsak máshol nincs egyéb rendelkezés, ezen wiki tartalma a következő licenc alatt érhető el: CC Attribution-Share Alike 4.0 International
