Utilisateur:Kipmaster/xml extract title.pl
Définition, traduction, prononciation, anagramme et synonyme sur le dictionnaire libre Wiktionnaire.
#!/usr/bin/perl
$intext = 0 ;
$titlebien = 0 ;
while (<>) {
if ( $_ =~ /<title>(.*?)<\/title>/ ) {
print "$1\n" ;
}
}
