Problème avec Rename : Permission denied

Version imprimable

Bonjour,

j'ai un problème avec mon script, je cherche à ouvrir un répertoire puis à lister les fichiers de ce répertoire. Ensuite j'ouvre chaque fichier en lecture et je recherche une regex dont je stocke en mémoire le résultat.
Puis je tente de renommer les différents fichiers par le résultat de cette regex mais j'ai le message d'erreur suivant : Permission denied at renamer.pl line 49.

Je vois pas où est le pb ? configuration de Windows XP ( je suis admin) ? fonction rename foireuse ? Fermeture pématurée des fichiers à renommer ?

A mon avis c'est moi qui déconne mais où ???

voici mon code :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
$repertoire = "./BREVET";
 
# On ouvre le repertoir $repertoire
opendir(DIR, $repertoire) || die "$repertoire: $!";
my @fichiers = readdir(DIR);
 
# On liste les fichiers du repertoire et on stocke les noms complets dans @BREVET
foreach  $fichiers (@fichiers){
	print "Fichier présent : $fichiers\n";
	$old_name= $repertoire."/".$fichiers;
	print "Path : $old_name\n";
	push (@BREVET, "$old_name\n");
 
closedir(DIR);
}
 
# On boucle sur l'ensemble des fichiers contenus dans @BREVET
foreach $BREVET (@BREVET) {
 
	# Si le nom du fichier correspond à la REGEX on ouvre le fichier
	if ($BREVET =~ /(.+).htm/g) {
		open(BREVET, "$BREVET") || die "Cannot open $BREVET for write :$!";
		print "Ouverture fichier : $BREVET\n";
 
		# on lit le contenu du fichier
		while(<BREVET>) {
 
			# Si une ligne du fichier correspond à la REGEX on stocke la chaîne mémorisée
			# dans @NEW et le nom du fichier courant dans @OLD
			if ($_=~ m/<b>Patent number<\/b>: ([A-Z]+[0-9]+[A-Z]?)<br>/) {
 
				print "Ancien path : $BREVET\n";
				$new_name=$repertoire."/".$1.".htm";
				print "Nouveau path : $new_name\n";
				push (@OLD, "$BREVET\n");
				push (@NEW,"$new_name\n");
			}
		}
		close BREVET or die "Cannot close the file $BREVET\n";
	}
}
# Longueur du tableau @OLD
my $longueur = @OLD;
print "Longueur de OLD : $longueur\n";
# Pour chaque élément de @OLD on renomme la scalaire $OLD[x] par $NEW[x]
foreach $OLD (@OLD) {
	for (my $x=0; $x<$longueur; $x++) {
 
		rename($OLD[$x],$NEW[$x])|| die "impossible to rename the file $BREVET: $!";
	}
 
 
}

Merci pour vos remarques et vos conseils sur la réalisation de ce script car je débute en Perl.

Yann

Code:

1
2
3
4
5
6
7
 
foreach $OLD (@OLD) {
   for (my $x=0; $x<$longueur; $x++) {
 
      rename($OLD[$x],$NEW[$x])|| die "impossible to rename the file $BREVET: $!";
   }
}

Ici tu vas parcourir plein de fois @OLD,@NEW, une seule boucle suffit :

Code:

1
2
3
4
5
 
   for (my $x=0; $x<$longueur; $x++) {
 
      rename($OLD[$x],$NEW[$x])|| die "impossible to rename the file $OLD[$x]: $!";
   }

Ici, tu dois rajouter un last pour sortir de la boucle quand tu as trouvé ce que tu cherchais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      # on lit le contenu du fichier
      while(<BREVET>) {
 
         # Si une ligne du fichier correspond à la REGEX on stocke la chaîne mémorisée
         # dans @NEW et le nom du fichier courant dans @OLD
         if ($_=~ m/<b>Patent number<\/b>: ([A-Z]+[0-9]+[A-Z]?)<br>/) {
 
            print "Ancien path : $BREVET\n";
            $new_name=$repertoire."/".$1.".htm";
            print "Nouveau path : $new_name\n";
            push (@OLD, "$BREVET\n");
            push (@NEW,"$new_name\n");
            last;
         }
      }

Par ailleurs pourquoi utilises-tu CGI::Carp dans ce script qui n'est pas CGI ?

Code:

use CGI::Carp qw(fatalsToBrowser);

Ferme le handle du répertoire quand tu as fini de l'utiliser :

Code:

closedir DIR;

Une fois que tu auras fait ces modifications, dis nous quel est exactement ton message d'erreur complet.

--
Jedaï

20/08/2005, 12h06
panaone

Merci pour ta réponse Jedai,
mais j'ai fait les modifications que tu m'as fourni mais j'ai toujours cette foutue erreur : impossible to rename the file : Permission denied at renamer.pl line 52. !!!!!

Pour répondre à tes questions :
Par ailleurs pourquoi utilises-tu CGI::Carp dans ce script qui n'est pas CGI ? === en faite je croyais que c'était un module qui était fait pour donner des info de debug pour n'importe quel type de script Perl.

Ferme le handle du répertoire quand tu as fini de l'utiliser : je le ferme tout en haut l 15 : closedir(DIR); ???

Je vois pas ou regarder maintenant , en tout cas merci pour ton aide et tes conseils car ça me fait vraiment progresser !

Yann
20/08/2005, 12h46
djibril

as tu les droits sur les fichiers :lol: ?

Salut

En fait, l'erreur résultait de tes \n surnuméraires dans les noms de tes fichiers. D'où l'intérêt de chomper au préalable.
Voici le code :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
$repertoire = "/home/david/BREVET";
 
# On ouvre le repertoir $repertoire
opendir(DIR, $repertoire) || die "$repertoire: $!";
my @fichiers = readdir(DIR);
 
# On liste les fichiers du repertoire et on stocke les noms complets dans @BREVET
foreach  $fichiers (@fichiers){
	chomp $fichiers;
	next if ($fichiers eq "." or $fichiers eq "..");
	print "Fichier présent : $fichiers\n";
	$old_name= $repertoire."/".$fichiers;
	print "Path : $old_name\n";
	push (@BREVET, "$old_name\n");
}
closedir(DIR);
 
# On boucle sur l'ensemble des fichiers contenus dans @BREVET
foreach $BREVET (@BREVET) {
   chomp $BREVET;   
   # Si le nom du fichier correspond à la REGEX on ouvre le fichier
   if ($BREVET =~ /(.+).htm/g) {
      open(BREVET, "$BREVET") || die "Cannot open $BREVET for write :$!";
      print "Ouverture fichier : $BREVET\n";
 
      # on lit le contenu du fichier
      while(<BREVET>) {
 
         # Si une ligne du fichier correspond à la REGEX on stocke la chaîne mémorisée
         # dans @NEW et le nom du fichier courant dans @OLD
         if ($_=~ m/<b>Patent number<\/b>: ([A-Z]+[0-9]+[A-Z]?)<br>/) {
 
            print "Ancien path : $BREVET\n";
            $new_name=$repertoire."/".$1.".htm";
            chomp $new_name;
            print "Nouveau path : $new_name\n";
            push (@OLD, "$BREVET");
            push (@NEW,"$new_name");
         }
      }
      close BREVET or die "Cannot close the file $BREVET\n";
   }
}
 
#@OLD
foreach $OLD (@OLD){
	print "$OLD<-fichier\n";
}
#@NEW
foreach $OLD (@NEW){
	print "$OLD<-fichier\n";
}
 
# Longueur du tableau @OLD
my $longueur = @OLD;
print "Longueur de OLD : $longueur\n";
# Pour chaque élément de @OLD on renomme la scalaire $OLD[x] par $NEW[x]
for(my $i=0; $i<$#OLD+1; $i++){
	print "Renomme $OLD[$i] en $NEW[$i]\n";
	rename($OLD[$i], $NEW[$i]);
}

Normalement ce code fonctionne chez moi.
En espérant t'avoir aidé.

@++

20/08/2005, 13h40
Jedai

Citation:

En fait, l'erreur résultait de tes \n surnuméraires dans les noms de tes fichiers. D'où l'intérêt de chomper au préalable.

A priori, readdir ne rajoute pas de "\n" à la fin des noms de fichiers, donc l'erreur ne provient pas de là... J'ai l'impression qu'il s'agit plus d'un problème de son OS que d'un problème de Perl, mais je ne vois vraiment pas...
Peut-être qu'essayer le move() de File::Copy règlerait le problème.

--
Jedaï
20/08/2005, 13h43
Jedai

Je vois aussi un autre problème éventuel : le chemin relatif dans $repertoire, essaie de mettre un chemin absolu.

--
Jedaï
20/08/2005, 14h09
GLDavid

J'ai pensé aussi èa un problème de chemin relatif, mais en faisant des prints sur ses tablaux, je me suis rendu compte qu'il yavait des retour chariots en trop, d'où les chomp.
par contre, la question de savoir sur quel OS tu es m'intéresse.

@++
20/08/2005, 15h48
Jedai

Là ça me surprend !! 8O
C'est peut-être parce que tu es sous Linux, mais sous Windows, je peux t'assurer que readdir ne met pas de "\n" à la fin des noms de fichiers...

Par ailleurs il faudrait vraiment supprimer ce "use CGI...", je ne suis pas sûr que ça ne puisse pas avoir une influence néfaste.

--
Jedaï

Merci à tous pour toutes ces infos !!

En faite j'ai supprimé les \n et ajouté chomp :
Code:

1 2 3 4 5 6 7 8 9 if ($_=~ m/<b>Patent number<\/b>: ([A-Z]+[0-9]+[A-Z]?)<br>/) { print "Ancien path : $BREVET\n"; $new_name=$repertoire."/".$1.".htm"; chomp $new_name; print "Nouveau path : $new_name\n"; push (@OLD, "$BREVET"); push (@NEW,"$new_name"); }
et ça fonctionne nikel ! mais pouvez vous m'en dire plus sur le rôle de chomp et sur ce problème de \n ? ne faut il jamais en mettre dans des action push(@XXX,"$variable) ?

merci les gars,
Yann

21/08/2005, 13h48
GLDavid

Salut

chomp est une fonction qui va te permettre de supprimer les retour chariots de tes chaînes de caractères.
Concernant ton problème de rename, si on n'avait pas utilisé chomp ni veiller à virer les \n surnuméraires, on se retrouve avec la fonction suivante :

Code:

rename("/home/toto/titi.htm\n\n", "/home/toto/truc.htm\n\n");

Or, tel quel, rename ne sait pas interprêter les noms de fichiers avec des \n. C'est pour cela que dans les noms de fichiers (de préférence absolus), il faut toujours veiller à virer les \n.
Au passage, si c'est OK, n'oublies pas de mettre le tag Résolu :)

@++

Ok... En fait tu mettais des retours chariots au bout de tes noms de fichiers... 8O
J'ai pas les yeux en face des trous moi....
Et si vous oubliez de mettre des chomps et vous contentiez de ne PAS mettre de "\n" au bout des noms de fichiers (pourquoi est-ce que tu croyais qu'il fallait en mettre ?????).

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
#! /usr/bin/perl
use strict;
use warnings;
 
my $repertoire = "./BREVET";
 
# On ouvre le repertoir $repertoire
opendir(DIR, $repertoire) or die "$repertoire: $!\n";
my @fichiers = readdir(DIR);
 
my(@BREVETS, @OLDS, @NEWS);
# On liste les fichiers du repertoire et on stocke les noms complets dans @BREVET
foreach  my $fichier (@fichiers){
   print "Fichier présent : $fichier\n";
   my $old_name= $repertoire."/".$fichier;
   print "Path : $old_name\n";
   push (@BREVETS, "$old_name");
}
closedir(DIR);
 
# On boucle sur l'ensemble des fichiers contenus dans @BREVET
foreach my $BREVET (@BREVETS) {
 
   # Si le nom du fichier correspond à la REGEX on ouvre le fichier
   if ($BREVET =~ /\.htm$/) {
      open(BREVET, '<', $BREVET) or die "Ne peut ouvrir $BREVET en lecture : $!\n";
      print "Ouverture fichier : $BREVET\n";
 
      # on lit le contenu du fichier
      while(<BREVET>) {
 
         # Si une ligne du fichier correspond à la REGEX on stocke la chaîne mémorisée
         # dans @NEW et le nom du fichier courant dans @OLD
         if ( m/<b>Patent number<\/b>: ([A-Z]+[0-9]+[A-Z]?)<br>/ ) {
 
            print "Ancien path : $BREVET\n";
            my $new_name=$repertoire."/".$1.".htm";
            print "Nouveau path : $new_name\n";
            push (@OLDS, "$BREVET");
            push (@NEWS, "$new_name");
            last;
         }
      }
      close BREVET or die "Ne peut fermer $BREVET\n";
   }
}
 
# Longueur du tableau @OLDS
my $longueur = @OLDS;
print "Longueur de \@OLDS : $longueur\n";
# Pour chaque élément de @OLDS on renomme la scalaire $OLDS[x] par $NEWS[x]
for (my $x=0; $x<$longueur; $x++) {
  rename($OLDS[$x],$NEWS[$x]) or die "impossible de renommer le fichier $OLDS[$x] en $NEWS[$x]: $!";
}

J'ai pas mal nettoyé le code. Un conseil pour la programmation en général : c'est pas une bonne idée de mélanger les langues pour les notations et les messages d'erreurs (je me suis contenté de modifier les messages d'erreur et très légèrement la notation).

--
Jedaï

21/08/2005, 17h56
panaone

Merci à tous,
Yann