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 =~ /\S+\sen\s(\S+)\s\S+\s/;
  if ($most_counts < $1) {
    $most_counts = $1;
    $most_line = $line;
  }
}
 
print "Most popular page: $most_line\n";
 

Latest pastes

teen videos collection december

1 hours ago

6GB BOCIL UPFILES PACK

11 hours ago

BOCIL PACK 6GB FREE

1 days ago

2 pack and loli

2 days ago

Free cp no ada

2 days ago