problème pour renommer des fichiers

**PadawanInPerl** · 15/12/2009, 09h20

Bonjour,

j'ai besoin d'aide:

dans le code si dessous, j'espérais ouvrir le dossier paire et renommer ses fichiers et ouvrir le dossier impaire et faire de même.
Seulement cela ne marche pas !!

si je sépare le code et que je fais chacun dans son dossier cela marche (mais me renomme le .pl

)

Par contre quand je teste, il arrive bien à lire dans les dossiers !!

HELP

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
 
use File::Rename;
 
opendir PAI, "paire" or die "impossible d'ouvrir le repertoire";
opendir IMP, "impaire" or die "impossible d'ouvrir le repertoire";
 
@fichier = readdir (PAI);
@fich = readdir (IMP);
 
$num= -2  ;
$nmr= -3 ;
 
        foreach $fichier(@fichier)
                {
                rename ("$fichier" , "$num.pdf");
                $num=$num+2;
                }
$num= -2  ;
 
        foreach $fich(@fich)
                {
                rename ("$fich" , "$nmr.pdf");
                $nmr=$nmr+2;
                }
 
$nmr= -3 ;
 
close IMP;
close PAI;

**Jasmine80** · 15/12/2009, 09h52

Tu dois indiquer le chemin complet vers tes fichiers.

Essaie le code ci-dessous :

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
#!/usr/bin/perl -w
 
 
 
use strict;
use warnings;
use File::Rename;
 
 
my $chemin_paire = ''; 
my $chemin_impaire = ''; 
 
opendir PAI, $chemin_paire."paire" or die "impossible d'ouvrir le repertoire";
opendir IMP, $chemin_impaire."impaire" or die "impossible d'ouvrir le repertoire";
 
my @fichier = readdir (PAI);
closedir PAI;
my @fich = readdir (IMP);
closedir IMP;
 
my $num = -2  ;
my $nmr = -3 ;
 
foreach my $fichier (@fichier)
	{
	rename ($chemin_paire.$fichier , $chemin_paire."$num.pdf");
	$num = $num+2;
	}
$num= -2  ;
 
foreach my $fich (@fich)
	{
	rename ($chemin_impaire.$fich , $chemin_impaire."$nmr.pdf");
	$nmr = $nmr+2;
	}
$nmr= -3 ;

**PadawanInPerl** · 15/12/2009, 10h12

Bonjour Jasmine,

Merci pour ton aide !!!

Malheureusement ça ne fonctionne pas pour moi. (car je sais trop peu de chose

)

si mon script perl est dans un dossier (pdf) avec mes dossiers paire et impaire,
Est-ce que le chemin serait = ' pdf '; ou je dois vraiment tous mettre : c:/Bureau .... ??

si je met tout, j'ai une erreur: impossible d'ouvrir et si je pdf il se comporte comme si tout allé mais il ne renomme pas !!

MErci

**Jasmine80** · 15/12/2009, 10h16

Envoyé par PadawanInPerl

Bonjour Jasmine,

Merci pour ton aide !!!

Malheureusement ça ne fonctionne pas pour moi. (car je sais trop peu de chose

)

si mon script perl est dans un dossier (pdf) avec mes dossiers paire et impaire,
Est-ce que le chemin serait = ' pdf '; ou je dois vraiment tous mettre : c:/Bureau .... ??

si je met tout, j'ai une erreur: impossible d'ouvrir et si je pdf il se comporte comme si tout allé mais il ne renomme pas !!

MErci

Tu peux également, pour supprimer les fichiers . et .. faire un

Code :

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

1
2
my @fichier = grep { !/^\.\.?$/ } readdir (PAI);
my @fich = grep { !/^\.\.?$/ } readdir (IMP);

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
#!/usr/bin/perl -w
 
 
 
use strict;
use warnings;
use File::Rename;
 
 
my $chemin_paire = 'c:/Bureau/.../paire/'; 
my $chemin_impaire = 'c:/Bureau/.../impaire/'; 
 
opendir PAI, $chemin_paire or die "impossible d'ouvrir le repertoire";
opendir IMP, $chemin_impaireor die "impossible d'ouvrir le repertoire";
 
 
my @fichier = grep { !/^\.\.?$/ } readdir (PAI);
closedir PAI;
my @fich = grep { !/^\.\.?$/ } readdir (IMP);
closedir IMP;
 
my $num = -2  ;
my $nmr = -3 ;
 
foreach my $fichier (@fichier)
	{
	rename ($chemin_paire.$fichier , $chemin_paire."$num.pdf");
	$num = $num+2;
	}
$num= -2  ;
 
foreach my $fich (@fich)
	{
	rename ($chemin_impaire.$fich , $chemin_impaire."$nmr.pdf");
	$nmr = $nmr+2;
	}
$nmr= -3 ;