wikiparsel.pl | nopaste | share your clipboard

wikiparsel.pl

Edit & repaste | raw paste | Request removal

use strict;
use warnings;
 
my ($file) = glob("~/Desktop/pagecounts-20160101-050000");
$file and -f $file or die "Could not find pagecounts file!\n";
 
my $most_counts = 0;
my $most_line;
 
open my $in_fh, '<', $file or die "Unable to open $file\n";
while (my $line = <$in_fh>) {
  next unless $line =~ /^en\s\S+\s(\S+)\s\S+\s/;
  if ($most_counts < $1) {
    $most_counts = $1;
    $most_line = $line;
  }
}
 
print "Most popular page: $most_line\n";
 

Latest pastes

12 days ago

2 months ago

17 months ago

19 months ago

23 months ago