#/usr/bin/perl
<<DOC; 
Votre Nom : Pantikina
Avril 2006
 usage : perl parcours-arborescence-fichiers repertoire-a-parcourir
 Le programme prend en entrée le nom du répertoire contenant les fichiers
 à traiter.
 En sortie, le programme crée un fichier au format texte qui sera étiqueté avec Cordial.
DOC
#-----------------------------------------------------------
my $rep="$ARGV[0]";
# on s'assure que le nom du répertoire ne se termine pas par un "/"
$rep=~ s/[\/]$//;
#----------------------------------------
&parcoursarborescencefichiers($rep);	#recurse!

sub parcoursarborescencefichiers {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
	next if $file =~ /^\.\.?$/;
	$file = $path."/".$file;
	if (-d $file) {
	    &parcoursarborescencefichiers($file);	#recurse!
	}
	if (-f $file) {
        open(F,$file);
        while($ligne=<F>) {
	 	if ($ligne=~/<description>(.+)<\/description>/) {
			open (OUTTAG,">>cordess.txt");
			$temp=$1;
			$temp=~s/&#38;#39;/\'/g;
			$temp=~s/&#38;#34;/"/g;
			$temp=~s/&#233;/é/g;
			$temp=~s/Ã©/é/g;
			$temp=~s/&#234;/ê/g;
			$temp=~s/Ãª/ê/g;
			$temp=~s/Ã¨/è/g;
			$temp=~s/Ã/à/g;
			$temp=~s/Ã§/ç/g;
			$temp=~s/à§/ç/g;
			$temp=~s/Ã´/ô/g;
		 
		print $i++,"\n";
		print OUTTAG "$temp \n"; 		
		close (OUTTAG);
 			}
	    }
        close(F);
	}
   }

}

