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

Création : <pre> #!/usr/bin/perl $intext = 0 ; $titlebien = 0 ; while (<>) { if ( $_ =~ /<title>(.*?)<\/title>/ ) { if ( $1 =~ /:/ ) { # pas interessant, le titre n'est pas de names...
(Création : <pre> #!/usr/bin/perl $intext = 0 ; $titlebien = 0 ; while (<>) { if ( $_ =~ /<title>(.*?)<\/title>/ ) { if ( $1 =~ /:/ ) { # pas interessant, le titre n'est pas de names...)
 
(Aucune différence)