Différences entre les versions de « Utilisateur:Kipmaster/xml extract title.pl »

Création : <pre> #!/usr/bin/perl $intext = 0 ; $titlebien = 0 ; while (<>) { if ( $_ =~ /<title>(.*?)<\/title>/ ) { print "$1\n" ; } } </pre>
(Création : <pre> #!/usr/bin/perl $intext = 0 ; $titlebien = 0 ; while (<>) { if ( $_ =~ /<title>(.*?)<\/title>/ ) { print "$1\n" ; } } </pre>)
 
(Aucune différence)