#!perl
# liste le contenu des repertoires désiré
dans un fichier rep.dat
#
=== a_l_a_i_n -//- a_d_e_l_m_a_r ===
print "Indiquez
le dossier a traiter:\n";
chomp ($d
= <STDIN>);
opendir R, "$d"
or die "Ouverture
repertoire impossible $!";
foreach $file(sort
readdir R) {
$file = "$file\n";
print
<STDOUT>, $file;
push @repertoire,
$file;
}
closedir R or
die "Fermeture du repertoire impossible
$!";
if ($d
=~ /\\$/)
{
$fout = "$d"."rep.dat";
}
else {
$fout =
"$d" . "\\rep.dat";
}
open F, ">$fout"
or die "Ouverture
du fichier rep impossible $!";
print F @repertoire;
$d = "\nFait
le : " . localtime(time) . "\n";
print F $d;
close F or
die "Fermeture impossible bordel $!";
END;
Remarquez au dessus #!perl -w (sur windows) remplace
le shebang: #!/usr/bin/perl -w de Linux
Une idée aussi sur la manière de
récupérer le répértoire que l'utilisateur à
séléctionner pour y ajouter le nom de fichier (rep.dat)
J'ai étais obligé de colorier tous les scripts à
la main because quand je le faisais avec Scite => export format.html les
espaces étaient absents donc scripts entieremenrt faux. No problémo
mais ça sera plus long. A+ alain