1 #!usr/bin/perl
 2 
 3 # But du programme : Faire un recode forcé de tous les fichiers contenus dans le dossier passé en paramètre de la ligne de 
 4 # commande
 5 # Fonctionnement : perl prog dossier_de_fichiers_issus_de_Treetagger 
 6 
 7 
 8 use strict;
 9 use warnings;
10 use 5.014;
11 
12 die "syntaxe correcte pour $0 = perl prog.pl dossier/fichier_tag fichier_motif" unless (@ARGV== 2);
13 
14 system("rm -rf RESULTAT_EXTRACTION_MOTIF_PERSO");
15 # Main
16 say "_"x20;
17 my $dossier=$ARGV[0];
18 my $fichierMotif=$ARGV[1];
19 my $saveName="";
20 parcours($dossier);
21 
22 #Fonction(s)
23 
24 sub parcours
25 {
26     my ($dossierEnCours)=@_;
27     opendir (my $D, $dossierEnCours)  or die "Erreur d'ouverture de dossier type : $!";
28     foreach my $x (readdir ($D))
29     {
30             $saveName=$x;
31             $x=$dossierEnCours."/".$x;
32             next if $x=~ /^\.|\.\.?$/;
33         if (-d $x)
34         {
35             parcours($x);
36         }
37         elsif (-f $x)
38         {
39             appelExtractionMotif($x);
40         }
41     }
42     closedir $D;
43 }
44 
45 sub appelExtractionMotif
46 {
47     my ($fichier)=@_;
48     say "dans fonction";
49     say $saveName;
50     system ("perl ./ExtractionMotif_v2.pl $fichier $fichierMotif $saveName");
51 }