1 #!usr/bin/perl
2
3
4
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
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 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 }