Bonjour à tous,


Je suis débutant en Perl et je cherche à classifier les fichiers d'une arborescence donnée, mais je n'arrive pas à les trier de manière performante par "type", puis par "nom".

Voici le code que j'utilise :

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
 
open( RECAP , ">$recap_pcstxml" )
or die "Ouverture du fichier $recap_pcstxml impossible : $!\n";
 
print RECAP q(<?xml version="1.0"?>
<!DOCTYPE Recap SYSTEM "recap.dtd">
 
<Recap name="packName" version="1.2">
);
 
 
find( \&genpcstxml, $root_pcst );
 
print RECAP q(
</Recap>
);
 
close( RECAP );
 
 
sub genpcstxml {
  return if -d;     # exclusion des répertoires
 
  my $hostPath = $File::Find::dir;
 
  print RECAP qq(
  <File name="$_" hostPath="$hostPath" >
  </File>);
 
}

Avec ce code j'obtiens une classification par "nom" (et non "type" puis "nom"), par répertoire.

Merci d'avance pour vos réponses.