Wikipedia:Scripts/Perl scripts

This is a repository for Wikipedia-related perl scripts.

Pagestats

This script grabs the page traffic statistic for each Wikipedia page on a list, and adds it to a cumulative total.

use LWP::Simple;

$month = "09";
$year = "2011";
$lang="en";

while (<>){
    s/ /_/g;	
    print "$_";
    $page=get ("http://stats.grok.se/$lang/$year$month/$_" );
    $page =~ /has been viewed (\d+) times in/;
    $total+=$1;
    print " $total\n ";    
}

print "\nTotal: $total";