#!/usr/local/bin/perl
#
#  AUTOWEAPONBANS N BANLISTCLEANER
#               V 1.1
#
############################################


use strict;
use warnings;
use Data::Dumper;
use utf8;

binmode(STDOUT, ":encoding(UTF8)"); 
binmode(STDIN, ":encoding(UTF8)"); 

our (@steam,@name,@scout,@awp,@date,@time);
our %players=([@steam],[@name],[@scout],[@awp]);

my $datei1 = "banned.cfg";  
my $pfad1 = "H:\\perl\\uebungen\\save\\pme\\logparsing\\srcds1\\";
our $file1 = "$pfad1$datei1";
my $datei2 = "banned.cfg";  
my $pfad2 = "H:\\perl\\uebungen\\save\\pme\\logparsing\\srcds2\\";
our $file2 = "$pfad2$datei2";

our $infofile = "info.txt";


{
package main;
&Scan;
&Readinfo("$infofile");
&Read("$file1");
&Read("$file2");
&Write("$file1");
&Write("$file2");
&Writeinfo("$infofile");
#print Dumper (%players);
}


###################################################################################################
#   logfile auswerten
###################################################################################################
sub Scan
{
my $file = $ARGV[0];
my ($line);
my $steam;
my @oldbans;

if (!$file) {
        print STDERR "\n\t KEIN LOGFILE ANGEGEBEN !\n\n";
        exit();
        }
open(LOG, $file) or die ("\n\tPFAD/FILENAME FALSCH ? \n\nLogfile konnte nicht geoeffnet werden");	#$file öffnen
while(<LOG>) {			#$file zeilenweise auslesen 
	chomp();
	$line = $_;
	my $time = substr($line,2,21);				#zeit extrahieren
	if(substr($line,25,1) eq "\"")				#auf """ prüfen (playeraction)
		{
		$steam = substr($line,index("$line","STEAM_0:",32),(index("$line",">",index("$line","STEAM_0:",32))
		-index("$line","STEAM_0:",32)));		
		if(index("$line","with \"scout\"",32) != -1) {          # scoutkills suchen
                            $players{$steam}{$time} = "scout";
                            $players{$steam}{'info'} = "restricted weapon use";
                        }
		if(index("$line","with \"awp\"",32) != -1) {            # awpkills suchen
                            $players{$steam}{$time} = "AWP";
                            $players{$steam}{'info'} = "restricted weapon use";
			}
		}
	}
close(LOG);
#print Dumper (%players);
}
[...more subs...]