#!usr/bin/perl

# But du programme : Faire un recode forcé de tous les fichiers contenus dans le dossier passé en paramètre de la ligne de 
# commande
# Fonctionnement : perl prog dossier_de_fichiers_issus_de_Treetagger 


use strict;
use warnings;
use 5.014;

die "syntaxe correcte pour $0 = perl prog.pl dossier/fichier_tag fichier_motif" unless (@ARGV== 2);

system("rm -rf RESULTAT_EXTRACTION_MOTIF_PERSO");
# 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)
		{
			appelExtractionMotif($x);
		}
	}	
	closedir $D;
}

sub appelExtractionMotif
{
	my ($fichier)=@_;
	say "dans fonction";
	say $saveName;
	system ("perl ./ExtractionMotif_v2.pl $fichier $fichierMotif $saveName");
}
