La voix du secrétaire (Jean)
Présents à la réunion, en fonction de la l'ordre d'arrivée :
Nous avons mangé des salades au poulet et au curry et du boudin avec de la purée. Nous avons bu de la bière (Leffe et une bière bretonne dont je n'ai pas retenu le nom), ainsi que de la vodka. Le repas était arrosé au vin rosé, offert par Laurent qui fêtait ainsi son anniversaire.
Nous avons parlé de Perl, Internet, informatique et points divers.
use strict;
use warnings;
use HTML::Parser;
my $analyse = HTML::Parser->new(api_version => 3,
text_h => [ \&texte, "text, dtext" ],
);
$analyse->parse("<div>Il s'élève à toute vitesse</div>");
sub texte {
my ($texte_brut, $texte_decode) = @_;
print "texte brut : $texte_brut\n";
print "texte décodé : $texte_decode\n";
}
Ou alors Charles parlait peut-être de certaines entités qui ne
sont pas traduites alors que d'autres comme é
le sont.
]
use strict;
use warnings;
use HTML::Parser;
my $analyse = HTML::Parser->new(api_version => 3,
start_h => [ \&debut, "self,tagname,attr" ],
text_h => [ \&texte, "dtext" ],
end_h => [ \&fin, "tagname" ],
);
$analyse->parse("Que j'aime à faire apprendre un nombre utile aux sages");
sub debut {
my ($self, $tag, $attr) = @_;
print "début : $tag\n";
}
sub texte {
my ($texte) = @_;
print "texte : $texte\n";
}
sub fin {
my ($tag) = @_;
print "fin : $tag\n";
}
Et maintenant, essayez de lancer deux analyses à la suite :
$analyse->parse("Que j'aime à faire apprendre un nombre utile aux sages");
$analyse->parse("Immortel Archimède, artiste, ingénieur");
Il existe un moyen de détournement très
simple, appeler l'analyse avec
"<div>$chaine</div>".
$analyse->parse("<div>Que j'aime à faire apprendre un nombre utile aux sages</div>");
moyen que j'ai utilisé subrepticement au paragraphe précédent.