#!/usr/bin/perl -wl
use strict;

my $dir = qw(/home/idlerpg/graphdump);

opendir(DIR, $dir) or die "Cannot open $dir:$!";

my @files = reverse sort readdir(DIR);
my $currlevel = 68;
my $numfiles;
my $totalfiles = scalar @files;

FILE:
for my $file (@files) {
    open IN, '<', "$dir/$file" or die "Ack!:$!";
    $numfiles++;
    undef $/;
    my $data = <IN>;
    my $pos = index($data,'McDarren');
    $/ = "\n";
    next FILE if $pos == -1;
    seek(IN, $pos,0);
    chomp(my $line = <IN>);
    my ($user,$level) = (split /\t/, $line)[0,3];
    next FILE if $level <= $currlevel;
    print "$file $user $level";
    print "Processed $numfiles files (total files:$totalfiles)";
    exit;
}

##</code><code>##

$ time ./gfather.pl
dump.1167332700 McDarren 71
Processed 9054 files (total files:57868)
       39.15 real         0.84 user         0.75 sys