#!/usr/local/bin/perl $dir = "c:/"; print "Voici les fichier textes de $dir:\n"; opendir(BIN, $dir) or die "Impossible d'ouvrir le dossier $dir: $!"; while( $fichier = readdir BIN) { print "$fichier\n" if -T "$dir/$fichier"; } closedir(BIN); |
----------------------------------------------------------------------------
