1 #!usr/bin/perl
 2 
 3 # But du programme : appel généralisé d'extration de patrons via la bibliothèque xpath de perl en utilisant le programme adapté (ici Xpath.pl)
 4 # Fonctionnement : perl prog [chemin]/dossier_fichiers_treetagger_après_Treetagger2xml fichier_Motif
 5 
 6 
 7 use strict;
 8 use warnings;
 9 use 5.014;
10 
11 die "syntaxe correcte pour $0 = perl prog.pl dossier/fichier_tag fichier_motif" unless (@ARGV== 2);
12 
13 
14 
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             appelXpathXML($x);
40         }
41     }
42     closedir $D;
43 }
44 
45 sub appelXpathXML
46 {
47     my ($fichier)=@_;
48     say "dans fonction";
49     say $saveName;
50     system ("perl ./Xpath.pl $fichier $fichierMotif $saveName");
51 }