Aller au contenu

Utilisateur:KelBot/kbget

Une page de Wikipédia, l'encyclopédie libre.

<syntaxhighlight lang="perl">

  1. !/usr/bin/perl


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

my $pw;

my $page;

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

if ($page) {

   kbget($page);

} else {

   unless ($page) {

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

   }

}

sub kbget {

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

$pw = KelBot->new('kbget');

   }
   
   $page = `php -q ./urlencode.php "$page"`;
   
   print $pw->get_text($page)."\n"; 

}