oktatas:programozas:perl:perl_fajlok_es_koenyvtarak
< Perl
Perl fájlok és könyvtárak kezelése
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
- 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";
- main.pl
#!/usr/bin/perl
my $dir = "/home/valami";
my @files = glob ( "$dir/*.txt" );
print "@files\n";
oktatas/programozas/perl/perl_fajlok_es_koenyvtarak.txt · Utolsó módosítás: 2019/12/06 16:45 szerkesztette: admin