Code:
open LOGFILE, "<", "nyzul.log" or die $!;
open OUTPUT, ">nyzul.csv" or die $!;
$obj = 0;
while (<LOGFILE>)
{
##Floor X
if(m/Welcome to Floor (\d+)/)
{
##Test for no Objective (Free floor)
if($obj==1)
{print OUTPUT "Free\n";}
print OUTPUT getTime($_) . "," . $1 . ",";
$obj = 1;
}
##Floor X Objective
if(m/Objective: (.*)/ && $obj)
{
print OUTPUT $1 . "\n";
$obj = 0;
}
##Floor 0
if(m/You have 30 minutes/)
{
print OUTPUT getTime($_) . ",0,Temp Items.\n";
}
##Exit - Win
if(m/You obtain .* tokens/)
{
print OUTPUT getTime($_) . ",Exit\n\n\n";
}
##Exit - Fail
if(m/mission has failed/)
{
print OUTPUT getTime($_) . ",Exit\n\n\n";
}
}
sub getTime
{
if(m/\[(.*)]/)
{
return $1;
}
}