[Perl] ShowTextFiles

Descrizione
Mostra i nomi dei file di testo presenti in una directory.

Codice
$d = ".";
print "File di testo trovati:\n";
opendir(D, $d) or die "Impossibile aprire la directory: $!";
while( defined ($f=readdir(D)) ) {
print "$d/$f\n" if -T "$d/$f";
}
closedir(D);
system("PAUSE");