Salut,
1/ que te retourne ton programme Perl (message d'erreur ??).
2/ as-tu vérifié qu'il n'y a pas de problèmes de droits ?
Avec rmdir, tu ne peux pas supprimer un répertoire non vide.
Pour utiliser rmtree, il te faut le module File:: Path.
Code :
- #!/usr/bin/perl -w
- use strict;
- use File::Path;
- my($dir,$nb);
- print "Saisir nom répertoire\n";
- $dir=<STDIN>;
- chomp($dir);
- if(rmtree([$dir], 1, 1)!=0)
- {
- print "Suppression de $dir\n";
- }
- else
- {
- print "Erreur lors de la suppression de $dir.\n";
- }
- exit(1);
|
A+
Message édité par Ricolla75 le 18-09-2007 à 11:54:09
---------------
Pour mon mémoire de recherche sur les spams faîtes vous plaisir: user2@memoire-spam.info