Utilisateur:Kipmaster/xml extract title.pl
#!/usr/bin/perl
$intext = 0 ;
$titlebien = 0 ;
while (<>) {
if ( $_ =~ /<title>(.*?)<\/title>/ ) {
print "$1\n" ;
}
}
#!/usr/bin/perl
$intext = 0 ;
$titlebien = 0 ;
while (<>) {
if ( $_ =~ /<title>(.*?)<\/title>/ ) {
print "$1\n" ;
}
}