diff --git "a/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" "b/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" index db76c46..64a22bd 100755 --- "a/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" +++ "b/outils/extrait-xml-\303\251diteur/extraitXmlEditeur.pl" @@ -12,6 +12,9 @@ my ($programme) = $0 =~ m|^(?:.*/)?(.+)|; +my $version = "1.0.9"; +my $dateModif = "9 Février 2018"; + # Variables nécessaires pour les options my $aide = undef; my $fichier = undef; @@ -188,16 +191,19 @@ $debut =~ s/pdf/xml/o; if (grep(/^$debut.xml\z/, @xml) > 0) { push(@tmp, $pdf); + next } $debut =~ s/PDF/XML/o; if (grep(/^$debut.xml\z/i, @xml) > 0) { push(@tmp, $pdf); + next } ($debut) = $pdf =~ m|^(?:.+/)?(.+)\.pdf|io; - if (grep(/^$debut.xml\b/i, @xml) > 0) { + if (grep(/\b$debut.xml\b/i, @xml) > 0) { push(@tmp, $pdf); } } + # Dédoublonnage if ( $#tmp == 0 ) { @pdf = @tmp; }