Discussion :

[makohsarah]

Salut a tous,

J´ai monte mon programme qui devrait en principe ouvrir un repertoire et supprimer tous les fichiers qui s´y trouvent. Mais il n´execute pas ma commande ou alors il execute mais ne supprime pas les fichiers de ce repertoire.
je ne sais pas ce qu´il y a de faux ds mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
opendir(DIR,"rep")|| die "cannot open rep";
 
  my @file_rep=readdir(DIR);
 
closedir(DIR);
 
 
foreach my $fname(@file_rep){
 
print("$fname \n");
 
unlink($fname);
}

Est ce que je dois avoir des droits particuliers sur le repertoire ou les fichiers? ou alors a la creation du repertoire (qui est fait automatiquement par le programme) il faut donner des droits bien precis (j´ái donnée les droits 0755) ?
A bientot

[LE NEINDRE]

Bonjour makohsarah,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
my $dir = "Ton_chemin_répertoire\\";
 
opendir(DIR,$dir)|| die "cannot open rep $!\n";
 
  my @file_rep= grep {$_ ne "." && $_ ne ".."} readdir(DIR);
 
closedir(DIR);
 
 
foreach (@file_rep)
{
 
print " Suppression de $dir$_ : " ;
 
if (unlink($dir.$_) == 1)
{
        print "$dir$_ supprimé\n";
}
else
{
        print "Erreur de suppression\n";
}
}

le grep te permet de sélectionner tous les fichiers du répertoire $dir à l'exception de '.' et '..' (dossier courant et dossier parent)

Ensuite pour utiliser unlink, tu dois spécifier le chemin complet de fichier à supprimer, c'est à dire $dir (chemin du répertoire) et $_ le fichier en cours.

Attention à ne pas oublié de '\' ou '/' à la fin de $dir.

Bon courage !!

[makohsarah]

merci c cool ca marche !

[LE NEINDRE]

Y a pas d'quoi
Bonne chance pour la suite ...