PDA

Visualizza la versione completa : "nascondere" file nascosti


maub69
09-08-2006, 12:46
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? :confused: 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
13-08-2006, 21:50
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);

Loading