WoW combatlog splitter

combatlog_splitter.pl

#!/usr/bin/perl
use strict;
use warnings;
$| = 1;

my ($infilename, $in, $out) = ("WoWCombatLog.txt");
my ($year, $month, $day) = (2012);
my ($lastday, $i) = (0, 0);

print "A simple World of Warcraft combat log splitter\n==============================================\n\n";

print "Splitting up $infilename.\n";
open $in, "<", $infilename or die "Couldn't open $infilename: $!\n";

while (<$in>) {
        ($month, $day) = (/^(\d{1,2})\/(\d{1,2})/);

        if ($lastday != $day) {
                $month = sprintf("%02d",$month);
                $day = sprintf("%02d",$day);
                $lastday = $day;

                print "\n*** New day! ***\n";

                my $outfilename = "WoWCombatLog_$year-$month-$day.txt";
                open $out, ">", $outfilename or die "Couldn't open output file $outfilename for writing: $!\n";

                print "Writing to $outfilename";
        }
        print $out $_; $i++;
        print "." if $i % 10000 == 0;
}

close $in or die "$in: $!";
close $out or die "$in: $!";