#!usr/bin/perl

# 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)
# Fonctionnement : perl prog [chemin]/dossier_fichiers_treetagger_après_Treetagger2xml fichier_Motif


use strict;
use warnings;
use 5.014;

die "syntaxe correcte pour $0 = perl prog.pl dossier/fichier_tag fichier_motif" unless (@ARGV== 2);



# Main
say "_"x20;
my $dossier=$ARGV[0];
my $fichierMotif=$ARGV[1];
my $saveName="";
parcours($dossier);

#Fonction(s)

sub parcours
{
	my ($dossierEnCours)=@_;
	opendir (my $D, $dossierEnCours)  or die "Erreur d'ouverture de dossier type : $!";
	foreach my $x (readdir ($D))
	{		
			$saveName=$x;
			$x=$dossierEnCours."/".$x;
			next if $x=~ /^\.|\.\.?$/;
		if (-d $x)
		{
			parcours($x);
		}
		elsif (-f $x)
		{
			appelXpathXML($x);
		}
	}	
	closedir $D;
}

sub appelXpathXML
{
	my ($fichier)=@_;
	say "dans fonction";
	say $saveName;
	system ("perl ./Xpath.pl $fichier $fichierMotif $saveName");
}
