Discussion :

[Maniac]

Bonjour,

J'ai des fichiers qui sont regulièrement ajouté dans un répertoire et j'essaie de les ranger dans d'autre repertoire en fonction de leur type. (J'ai 2 sorte de fichier. 1 fichier en XML totoconfxml.azerty.ZER et 1 fichier binaire totoconf.azerty.ZER)

Voila le script que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
use warnings;
use strict;
 
my $NBFILES = `find /Repertoire -type f -maxdepth 1 | wc -l`;
#print "$NBFILES\n";
        if ($NBFILES == 0){
                print "Il n'y a pas de nouveau fichier a déplacer\n";
        }else {
                system "mv /Repertoire/totoconfxml* /New Repertoire/XML";
                system "mv /Repertoire/totoconf* /New Repertoire/Conf";
                print "des fichiers ont été deplacé\n";
        }

Le script fonctionne et fait ce que je lui demande.
Je voulais savoir ce que vous en pensez. Est-ce correct de procéder ainsi ?

[GLDavid]

Salut

Une remarque : tu fais trop d'appels systèmes qui peuvent être aisément convertibles en appels de fonctions Perl (cf la FAQ dans ma signature). Ainsi, ton find peut être assimilé à une liste de fichiers rendu par un appel de readdir. Les appels mv peuvent être changés par des rename.
Il vaut mieux opter pour du "tout Perl" quand c'est possible pour une meilleure portabilité du code ainsi qu'une plus grande centralisation.

@++

[Maniac]

Merci GLDavid,

J'ai bien remplacer mon find par l'utilisation de readdir
Par contre pour remplacer le mv je coince.

Si j'utilise le nom de fichier complet, ca marche :

Code :

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

1
2
 
rename ("/usr/MonRepertoire/totoConf-20070205-0807", "/usr//NewRepertoire/totoConf-20070205-0807");

Mais je souhaiterai deplacer x fichiers vers la nouvelle destination

Code :

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

1
2
 
rename ("/usr/MonRepertoire/totoConf*", "/usr//NewRepertoire");

Comment je peux faire? Ca peux fonctionner avec rename ?

[Woufeil]

Bonjour,

Pour faire ce genre de manip, tu peux utiliser un module style File::Copy

[Maniac]

Finalement j'ai trouvé une autre solution avec rename. C'est peut être un peu plus compliquer mais ca fonctionne donc je me dit pourquoi pas ^^
Sauf avis contraire, je vais rester sur cette solution

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
 
opendir(DIR, $repertoire) || die "$repertoire: $!";   
my @fichiers = readdir(DIR);                       
closedir(DIR);
 
foreach my $fichiers (@fichiers) {
                chomp $fichiers;
 
# Si le nom du fichier correspond a la REGEX on le deplace dans son repertoire repectif
                if ($fichiers =~ /totoconfxml.*/g) {
                rename ("$repertoire/$fichiers", "$repertoire/XML/$fichiers");
                }
                if ($fichiers =~ /totoconf.*/g) {
                rename ("$repertoire/$fichiers", "$repertoire/Conf/$fichiers");
               }
             }