# script extrayant d'un fichier HTML toutes les séquences d'entités-caractères décimales
# voir le corrigé de l'interro. écrite de 2013 pour explications.

use strict;
use warnings;

my $html = $ARGV[0]; # nom du fichier-source, codé en Latin-1
my $arabe = $ARGV[1]; # nom du fichier-résultat, en ASCII

my $E = '&#[0-9]+;';
#my $er = "($E\\s*)*$E"; #forme donnée dans le corrigé
my $er = "((?:$E\\s*)*$E)"; #en distinguant les parenthèses capturantes des parenthèses syntaxiques, voir cours.

open(SOURCE, "<:encoding(LATIN-1)", $html);
open(EXTRAIT, ">$arabe");

my @lignes = <SOURCE>;
my $txt = join('', @lignes);

my @res = ($txt =~ m/$er/g); 
print scalar(@res);
print "\n";
foreach my $chn ( @res ){
	print EXTRAIT "$chn\n";
}
close EXTRAIT;
print "FINI\n";



