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 ?