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" ; } }