#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $file = 'C:/Programme/UrbanTerror/q3ut4/games.log';

my %proc = (
        'ClientConnect'  => sub{ print "Client $_[0] connected\n" },
        'ClientBegin'    => sub{ print "Client $_[0] began\n"     },
        'ClientUserinfo' => sub{
                my $line = shift;

                if ( $line =~ /(\d+) \\(.*)/ )
                {
                        print "Client $1: $2\n";

                        my $logline     = $2;
                        my %player_info = $logline =~ m! / ([^/]+) / ([^/]+) !xg;

                        print Dumper \%player_info;
                } # if
        },
);

open( my $fh, '<', $file )
        or die "Cannot open file '$file': $!";

while ( my $line = <$fh> )
{
        chomp($line);

        if ( $line =~ /^\s+(\d{1,2}:\d{2}) ((\w+):(?: )?(.*)?)/ )
        {
                #my $time = $1; # findet keine verwendung

                $proc{$3}->($4) if defined $3 and defined $4;
        } # if
} # while

__END__