Utilisateur:KelBot/kbwlh

<syntaxhighlight lang="perl">

1. !/usr/bin/perl

use KelBot; use strict; use Getopt::Long;

my $pw;

my $page;

GetOptions('page=s' => \$page);

if ($page) {

   kbls($page);

} else {

   unless ($page) {

while ($page = <STDIN>) { $page =~ s/\n//; kbls($page); }

   }

}

sub kbls {

   my $page = shift;
   return unless ($page);

   unless ($pw) {

$pw = KelBot->new('kbwlh'); $pw->login();

   }
   
   $page = `php -q ./urlencode.php "$page"`;
   $page =~ s/ \n//;

   foreach my $link ($pw->what_links_here($page)) {

my $title = $link->{title};

next unless ($pw->encyclo($title));

$title =~ s/ /_/g; print $title."\n";

   }

}