Utilisateur:Kipmaster/demander-post.pl
Définition, traduction, prononciation, anagramme et synonyme sur le dictionnaire libre Wiktionnaire.
#!/usr/bin/perl
while (<>) {
$ligne = $_ ;
if ( $ligne =~ / *(\d+) *\[\[(.*)\]\]\n/ ) {
print "* [[$2]] ([[Special:Whatlinkshere/$2|$1]])\n" ;
}
}
