Discussion :

[Arnaud62]

Bonjour,

Cela fait plusieurs jours que je me bat pour effectuer un petit script perl pas méchant pour un habitué. N'étant pas programmeur, je perds pas mal de temps là dessus.

J'ai un dossier_HD et un dossier_BD.
Le dossier HD contient des fichiers images .jpg et .eps
Le dossier_BD ne contient que des .jpg

Le script doit vérifier que les fichiers dans dossier_HD soient également présent dans dossier_BD quelque soit l'extension. Sinon il les compresses et les y met.

Exemple concret :

Dossier_HD contient : 001.eps et 002.jpg
Dossier_BD contient : 001.jpg

Le script parcourt le dossier HD, prends 001.eps, mais n'en fait rien car présent dans dossier_BS sous 001.jpg
Passe à 002.jpg et se rend compte de son absence dans dossier_BD.
Il le compresse (avec une ligne de commande imagemagick) et le met dans dossier_BD.

Je pense avoir été clair.

Si vous aviez un bout de code que je pourrais adapter à la finalité de mon projet.

Merci.

[djibril]

qu'entends tu par compression?

[djibril]

Voilà un script fait uniquement pour toi.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use List::Compare;
use File::Copy;
 
my $RepertoireHD = ""; # <=========== A completer
my $RepertoireBD = ""; # <=========== A completer
 
# Liste les fichiers de chaque repertoire
my (%FichiersHD, %FichiersBD) = ();
 
# Creation d'un hash avec en cle : Nom fichier sans extension et en valeur : 
# chemin complet vers fichiers
foreach my $FichierHD ( ListerFichiers($RepertoireHD) ) {
  my ( $NomFichier, $Chemin, $Extension ) = fileparse($FichierHD, qr/\.[^.]*/);
  $FichiersHD{$NomFichier} = $FichierHD;
  print "HD - $NomFichier : $FichierHD\n";
}
foreach my $FichierBD ( ListerFichiers($RepertoireBD) ) {
  my ( $NomFichier, $Chemin, $Extension ) = fileparse($FichierBD, qr/\.[^.]*/);
  $FichiersBD{$NomFichier} = $FichierBD;
  print "BD - $NomFichier : $FichierBD\n";
}
 
# Comparaison des fichiers dans les 2 repertoires
my @FichiersSansExtensionHD = keys %FichiersHD;
my @FichiersSansExtensionBD = keys %FichiersBD;
 
 
my $ListCompare = List::Compare->new(\@FichiersSansExtensionHD, \@FichiersSansExtensionBD);
# nom des fichiers (sans extension) present dans le repertoire HD et pas dans BD
my @FichiersUniqueHD = $ListCompare->get_unique;
 
# On les copie dans le repertoire BD apres compression
foreach my $FichierUniqueHD ( @FichiersUniqueHD ) {
  print "Fichier unique HD : $FichierUniqueHD\n";
  # Compression du fichier
  # Je compresse le fichier $FichiersHD{$FichierUniqueHD} <==========  Compression  A completer
 
  # Copie du fichier
  copy( $FichiersHD{$FichierUniqueHD},  $RepertoireBD);
}
 
 
# Lister les fichiers d'un répertoire
sub ListerFichiers {
 
  my ($repertoire) = @_;
  opendir (REP, $repertoire) or die "impossible d'ouvrir $repertoire\n";
  my @FichiersRepertoires = grep { !/^\.\.?$/ } readdir(REP);
  closedir (REP);
 
  my @fichiers = ();
  foreach my $nom (@FichiersRepertoires) {
    if ( -f "$repertoire/$nom") {
      push (@fichiers, "$repertoire/$nom");  
    }
  }
 
  return @fichiers;
}

Pour les explications de codage voir les cours et tutoriels pour apprendre Perl : http://perl.developpez.com/cours/

[Arnaud62]

J'entends par compression une compression au niveau nombre de pixels ...
Mais ceci est géré par un appel de commande avec "system" (sous Windows).

Merci pour le script.
Je l'ai testé, mais il me met un message d'erreur spécifiant :

Code :

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

Can't Locate List/Compare.pm in @INC (@INC contains: C:/Perl/site/lib/ C:/Perl/lib .)

Cela viendrait-il d'un package non installé ?

Merci.

[djibril]

faut installer le module List::Compare

[djibril]

J'entends par compression une compression au niveau nombre de pixels ...
Mais ceci est géré par un appel de commande avec "system" (sous Windows).

Merci pour le script.
Je l'ai testé, mais il me met un message d'erreur spécifiant :

Code :

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

Can't Locate List/Compare.pm in @INC (@INC contains: C:/Perl/site/lib/ C:/Perl/lib .)

Cela viendrait-il d'un package non installé ?

Merci.

Il est possible d'utiliser imagemacgick via perl. Il suffit d'installer le module adéquat aussi.

[Arnaud62]

Ah bon !
Je ne savais pas.

Merci pour le script.
Ca marche super.
Sauf un petit truc :

Les fichiers eps il les compresse, mais il garde l'ancienne extension.
Soit le fichier 002.eps compressé donne 002.eps.jpg