Доработки

use Data::Dumper;
use LWP::Simple;
use Win32::Console;

my $STDOUT = new Win32::Console(STD_OUTPUT_HANDLE);
$STDOUT->Title("L2 Adena Cheat Autoban");
$STDOUT->Cls($FG_LIGHTGRAY | $BG_BLACK);
$STDOUT->Attr($FG_LIGHTGRAY | $BG_BLACK);

$log_dir      = 'D:\SERVER\CacheD\log\err\\';
$watch_status = 'adena_cheat_status.txt';
$watch_banned = 'adena_cheat_banned.txt';
$watch_log    = 'adena_cheat_log.txt';

open STATUS, "$watch_status";
while (<STATUS>)
{
    chop($_);
    $f_status{$_}=1;
}
close STATUS;

my %banned;

open BAN, "$watch_banned";
while (<BAN>)
{
    chop($_);
    $banned{$_}=1;
}
close BAN;

open STATUS, ">>$watch_status";
open LOG,    ">>$watch_log";
open BAN,    ">>$watch_banned";

$| = 1, select $_ for select STATUS; #autoflush
$| = 1, select $_ for select LOG;    #autoflush
$| = 1, select $_ for select BAN;    #autoflush

my @log_files     = read_log_dir();
my $log_files_cnt = scalar @log_files;

$file_nr = 1;

while ($log_file = shift @log_files)
{
  if (defined $f_status{$log_file}) ## juz sprawdzany plik
  {
    $file_nr++;
    next;
  }
  open LOGFILE, $log_file;
  print STDERR "open $log_file\n";
  while (1)
  {
    for ($cur_pos = tell LOGFILE; $_ = <LOGFILE>; $cur_pos = tell LOGFILE)
    {
      if ($_ =~ m{BuyItems error.\[(\d+)\]\[57\]})
      {
        $char_id = $1;
        if (! defined ($banned{$char_id}))
        {
            my $ban_content = get("http://your.domain.com/yourbanandkickscript.php?char_id=".$char_id);
            print LOG localtime()." ban for $char_id [$ban_content]\n";
            print localtime()." ban for $char_id [$ban_content]\n";
            $banned{$char_id} = 1;
            print BAN "$char_id\n";
        }
        else
        {
            print "$char_id alredy banned\n";
        }
      }
    }
    if ($file_nr < $log_files_cnt)
    {
      last;
    }
    else
    {
      my @log_files_tmp     = read_log_dir();
      my $log_files_cnt_tmp = scalar @log_files_tmp;
      if ($log_files_cnt_tmp > $log_files_cnt) #one file only :P
      {
        print STDERR "new file $log_files_tmp[$log_files_cnt]\n";
        push @log_files, $log_files_tmp[$log_files_cnt];
        $log_files_cnt = $log_files_cnt_tmp;
        last;
      }
    }
    sleep 1;
    seek LOGFILE, $cur_pos, 0;
  }
  close LOGFILE;
  print STATUS $log_file."\n";
  $file_nr++;
}

sub read_log_dir
{
  my @log_files;
  opendir LOGDIR, $log_dir;
  push (@log_files,  map($log_dir.$_, grep (m{^.*\.log$}, readdir LOGDIR)));
  closedir LOGDIR;
  return @log_files;
}