Utilisateur:KelBot/kblc

#!/usr/bin/perl
 
use KelBot;
use strict;
use Getopt::Long;
 
my $pw;
 
kblc();
 
sub kblc {
    unless ($pw) {
        $pw = KelBot->new('kbwlh');
    }
 
    foreach my $page ($pw->last_contrib()) {
        my $title =  $page->{title};
        $title =~ s/ /_/g;
        print $title."\n";
    }
}