Ce script permet de vider les fichiers que vous désirez de leur contenu.
#!/usr/bin/perl
# remd: ce programme vise à vider le contenu d'un fichier
adelmar alain 03/2002
&videmoica;
while (! choix($oui)) {
&videmoica;
&oncontinu;
}
sub choix {
my($oui) = @_;
$oui =~ s/\W.*//;
$oui =~ tr/A-Z/a-z/;
if ($oui =~ /^o/) {
return 1;
}
else {
return 0;
}
}
sub videmoica {
print "Entrer le nom du fichier à vider\n";
$avider = <STDIN>;
chomp $avider;
while (!(-e $avider)) {
print "Nom de fichier incorrect, entrer le nom
complet du fichier a vider\n";
$avider = <STDIN>;
chomp $avider;
}
@contenu = <F>;
open F, ">$avider" or die "Ouverture de $avider impossible
$!";
@contenu = "";
close F or die "fermeture de $avider impossible $!";
print "le fichier $avider à été vider
de son contenu, voulez vous continuer avec un autre\n";
$oui = <STDIN>;
chomp $oui;
}
sub oncontinu {
print "le fichier $avider à été vider
de son contenu, voulez vous continuer avec un autre\n";
$oui = <STDIN>;
chomp $oui;
}
print "bon ben Tchao\n";
END;