"nascondere" file nascosti

[maub69]

Ciao a tutti sto iniziando a utilizzare il perl per dei piccoli script, e mi sono trovato a utilizzare opendir per leggere i file contenuti in una directory unix, solo che il comando mi restituisce anche i file nascosti. Come posso fare per non averli? Grazie a tutti

lo script attuale:

#!/usr/bin/perl -w
$percorso="/mnt/home/sitoweb/";
opendir(SITODIR, "/mnt/home/sitoweb") || die "non leggo la dir sitoweb: $!";
while($file = readdir SITODIR) {
print"$percorso$file\n";
}
closedir (SITODIR);

:rollo:

[shishii]

prova:

#!/usr/bin/perl -w
$percorso="/mnt/home/sitoweb/";
opendir(SITODIR, "/mnt/home/sitoweb") || die "non leggo la dir sitoweb: $!";
while($file = grep !/^\.\.?$/, readdir SITODIR) {
print"$percorso$file\n";
}
closedir (SITODIR);