[Débutant] modifier les droits sur un fichier

**DUDE007** · 22/01/2011, 22h48

ou mauvaise utilisation de rename et unlink

Bonjour,

je voudrais transformer le nom d'un fichier toto.txt en toto_bis.txt

donc soit renommer, soit copier avec son nom modifié et effacer l'original.
J'arrive à faire la copie, mais pas la modification du nom avec la commande rename, ni la suppression, d'où mon interrogation sur les droits sous WINDOWS XP

Voici le script :
------------------------------------------------------------

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
  use Cwd;
  use File::Copy;
 
  $RepCourant = cwd();
  my @nom_fichiers;
  print "lit le repertoire courant: $RepCourant \n";
 
  # Ouverture d'un repertoire
  opendir (my $FhRep, $RepCourant) 
    or die "impossible d'ouvrir le repertoire $repertoire\n";
 
  # Liste nom_fichiers et repertoire sauf (. et ..)
  my @Contenu = grep { /.txt/ } readdir($FhRep);
 
  # Fermeture du rÃ©pertoire
  closedir ($FhRep);
 
# On recupere tous les nom_fichiers
  foreach my $nom_fichier ( @Contenu ) {
    open my($fichier), '<', $nom_fichier
     or die "Ce fichier $nom_fichier n'a pu etre ouvert : $!\n";
 
# "_bis" est le nom du repertoire que je voudrais accoller 
# au nom du fichier
  $term="_bis";
  $longavg=length($RepCourant);
  $longfic=length($nom_fichier);
 
# extraction du l'extension du fichier sur 3 caractères et du
 
# "." qui la précède 
 
  $nom_fichier_dim = substr($nom_fichier,0,$longfic -4);
 
# ajout de "_bis.txt" au nom du fichier
 
  $nom_fichier_resu = $nom_fichier_dim .$term .".txt";
  $nom_fichier_complet = $RepCourant ."\/" . $nom_fichier;
  $nom_fichier_resu_complet = $RepCourant ."\/" . $nom_fichier_resu;
  print "toto \n $nom_fichier_complet \n $nom_fichier_resu_complet \n";
  copy ($nom_fichier_complet, $nom_fichier_resu_complet)
   or die "Pas moyen de renommer $nom_fichier en $nom_fichier_resu .";
  unlink ($nom_fichier_complet);
}

--------------------------------------------------------------
Merci d'avance si quelqu'un peut m'envoyer vers la bonne doc ou voit tout de suite ce qui ne va.

cordialement

... un peu plus tard :

pour mon problème spécifique, j'aurai la possibilité d'ajouter une ligne avec la commande ATTRIB dans un script windows qui appellera le script PERL et résoudra mon problème. J'espère avoir aider quelqu'un.

cordialement

**Tiger-222** · 23/01/2011, 13h51

Pense à mettre en début de script :

Code :

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

1
2
use strict;
use warnings;

Ensuite, j'ai testé ton script et semble fonctionner en corrigeant les erreurs. J'ai testé sous Debian GNU/Linux, pas de windows sous la main.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/perl
 
use strict;
use warnings;
use Cwd;
use File::Copy;
 
my $RepCourant = cwd();
my @nom_fichiers;
print "lit le repertoire courant : $RepCourant \n";
 
# Ouverture d'un repertoire
opendir (my $FhRep, $RepCourant) 
	or die "impossible d'ouvrir le repertoire $RepCourant\n";
 
# Liste nom_fichiers et repertoire sauf (. et ..)
my @Contenu = grep { /.txt/ } readdir $FhRep;
 
# Fermeture du répertoire
closedir ($FhRep);
 
# On recupere tous les nom_fichiers
foreach my $nom_fichier ( @Contenu ) {
	open my($fichier), '<', $nom_fichier
		or die "Ce fichier $nom_fichier n'a pu etre ouvert : $!\n";
 
	# "_bis" est le nom du repertoire que je voudrais accoller 
	# au nom du fichier
	my $term = '_bis.txt';
	my $longavg = length $RepCourant;
	my $longfic = length $nom_fichier;
 
	# extraction du l'extension du fichier sur 3 caractères et du
	# "." qui la précède 
	my $nom_fichier_dim = substr $nom_fichier,0,($longfic -4);
 
	# ajout de "_bis.txt" au nom du fichier
	my $nom_fichier_resu = $nom_fichier_dim .$term;
	my $nom_fichier_complet = $RepCourant ."\/" . $nom_fichier;
	my $nom_fichier_resu_complet = $RepCourant ."\/" . $nom_fichier_resu;
	print "toto \n $nom_fichier_complet \n $nom_fichier_resu_complet \n";
	copy ($nom_fichier_complet, $nom_fichier_resu_complet)
		or die "Pas moyen de renommer $nom_fichier en $nom_fichier_resu .";
	unlink $nom_fichier_complet;
}

**DUDE007** · 23/01/2011, 17h54

je suis moi-même un fan de debian, mais j'ai du mal à convaincre les informaticiens de mon employeur et il faudra donc que ça fonctionne sous WIndows. Je viens d'essayer ATTRIB qui n'est pas suffisant. J'ai essayé également cacls. A poursuivre, donc mon problème n'est plus résolu ...

Merci pour ta réponse - Message reçu pour use strict et warning

**Tiger-222** · 24/01/2011, 19h00

Je viens d'essayer sur un Windows XP en virtuel, et le script fonctionne à merveille

Contexte : J'ai créé un dossier sur le bureau et placer deux fichiers texte dedans. J'ai exécuté le script et mes deux fichiers texte sont bien renommés en nom_bis.txt.

Dans quel contexte as-tu essayé ?
Quels sont les messages d'erreur (pour attrib, perl, et/ou cacls) ?

**DUDE007** · 24/01/2011, 22h53

Envoyé par Tiger-222

Je viens d'essayer sur un Windows XP en virtuel, et le script fonctionne à merveille

Contexte : J'ai créé un dossier sur le bureau et placer deux fichiers texte dedans. J'ai exécuté le script et mes deux fichiers texte sont bien renommés en nom_bis.txt.

Dans quel contexte as-tu essayé ?
Quels sont les messages d'erreur (pour attrib, perl, et/ou cacls) ?

D'abord, merci tiger-222 de t'intéresser à ce problème :
j'ai créé un dossier C:\Essai
Dans ce dossier, j'ai un fichier essai.txt ainsi qu'un fichier essai.bat :
attrib -r
perl addbis.pl

avec addbis.pl

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  use strict;
  use warnings;
  use Cwd;
  use File::Copy;
 
  my $RepCourant = cwd();
  my @nom_fichiers;
  print "lit le repertoire courant: $RepCourant \n";
 
  # Ouverture d'un repertoire
  opendir (my $FhRep, $RepCourant) 
    or die "impossible d'ouvrir le repertoire $RepCourant\n";
 
  # Liste nom_fichiers et repertoire sauf (. et ..)
  my @Contenu = grep { /.txt/ } readdir($FhRep);
 
  # Fermeture du rÃ©pertoire
  closedir ($FhRep);
 
# On recupere tous les nom_fichiers
  foreach my $nom_fichier ( @Contenu ) {
    open my($fichier), '<', $nom_fichier
     or die "Ce fichier $nom_fichier n'a pu etre ouvert : $!\n";
 
# "_bis" est le nom du repertoire que je voudrais accoller 
# au nom du fichier
  my $term="_bis";
  my $longavg=length($RepCourant);
  my $longfic=length($nom_fichier);
 
# extraction du l'extension du fichier sur 3 caractères et du
 
# "." qui la précède 
 
  my $nom_fichier_dim = substr($nom_fichier,0,$longfic -4);
 
# ajout de "_bis.txt" au nom du fichier
 
  my $nom_fichier_resu = $nom_fichier_dim .$term .".txt";
  my $nom_fichier_complet = $RepCourant ."\/" . $nom_fichier;
  my $nom_fichier_resu_complet = $RepCourant ."\/" . $nom_fichier_resu;
  print "toto \n $nom_fichier_complet \n $nom_fichier_resu_complet \n";
  rename ($nom_fichier_complet, $nom_fichier_resu_complet)
   or die "Pas moyen de renommer $nom_fichier en $nom_fichier_resu .";
 
}

la commande rename renvoie le message
Pas moyen de renommer toto.txt en toto_bis.txt . at addbis.pl line 43.

Voilà, tu sais tout. Je ne sais pas ce que c'est qu'un bureau virtuel, peut-être qu'il fonctionne mieux qu'un réel ...

**mamax29** · 31/01/2011, 17h54

Salut,

Je viens de tester ton code tel quel et cela fonctionne impec.

Je tourne sous Windows avec perl (v5.10.1) installé via Cygwin.
La commande a été lancée via la console windows standard.

Avec ou sans commande attrib, le script fonctionne.

par contre je pense que ton problème viens de ces deux lignes là:

Code :

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

1
2
3
 
my $nom_fichier_complet = $RepCourant ."\/" . $nom_fichier;
my $nom_fichier_resu_complet = $RepCourant ."\/". $nom_fichier_resu;

remplace les par:

Code :

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

1
2
my $nom_fichier_complet = $RepCourant ."\\" . $nom_fichier;
my $nom_fichier_resu_complet = $RepCourant ."\\". $nom_fichier_resu;

**Beniou** · 31/01/2011, 18h39

Sinon pour éviter que le script soit dépendant à un OS, tu peux aussi utiliser le module File::Spec pour manier les liens vers les fichiers et ne pas se soucier si c'est un "/" ou un "\" etc.

Les fonctions "catfile" et "catdir" de ce module sont là pour cela.

Avec ton exemple par exemple :

Code :

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

1
2
3
 
my $nom_fichier_complet = File::Spec->catfile($RepCourant,$nom_fichier);
my $nom_fichier_resu_complet = File::Spec->catfile($RepCourant,$nom_fichier_resu);

**DUDE007** · 01/02/2011, 06h19

Merci beaucoup à tous les deux !!!

Je teste vos recommandations et vous communiquerai le résultat. Etant absent quelques jours, ce ne sera pas pour tout de suite

Cordialement

**DUDE007** · 09/02/2011, 06h11

Envoyé par DUDE007

Merci beaucoup à tous les deux !!!

Je teste vos recommandations et vous communiquerai le résultat. Etant absent quelques jours, ce ne sera pas pour tout de suite

Cordialement

Résolu grâce au snippet de GL_David :
open FILE, '>truc.txt' or die "truc.txt : $!\n";
print FILE "Bla bla bla !!!!";
close FILE;

donc merci à lui

[Débutant] modifier les droits sur un fichier

Langage Perl

Discussions similaires

Partager

Partager