Utilisateur:Kipmaster/demander-post.pl
#!/usr/bin/perl
while (<>) {
$ligne = $_ ;
if ( $ligne =~ / *(\d+) *\[\[(.*)\]\]\n/ ) {
print "* [[$2]] ([[Special:Whatlinkshere/$2|$1]])\n" ;
}
}
#!/usr/bin/perl
while (<>) {
$ligne = $_ ;
if ( $ligne =~ / *(\d+) *\[\[(.*)\]\]\n/ ) {
print "* [[$2]] ([[Special:Whatlinkshere/$2|$1]])\n" ;
}
}