1 #!usr/bin/perl
2
3
4
5
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
16 say "_"x20;
17 my $dossier=$ARGV[0];
18 my $fichierMotif=$ARGV[1];
19 my $saveName="";
20 parcours($dossier);
21
22
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 }