Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Lister les fichiers d’un répertoire qui contiennent des textes


{filelink=15267#}

#!/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);

No comments yet.

Leave a Comment