Очистка csstats.dat

#!/usr/bin/perl

my $infile = shift;
my $outfile = shift;
my @players;
my $buffer;
my $RANK_VERSION = 11;

die("Usage: ./statsed.pl <infile> [outfile]\n") unless $infile ne "";

open(INFILE, $infile) or die "File $infile could not be opened.\n";
binmode(INFILE);

if (!read(INFILE, $buffer, 2))
{
die "File $infile looks like an invalid file.\n";
close(INFILE);
}

my $vers = unpack("s1", $buffer);
if ($vers != $RANK_VERSION)
{
print "File $infile does not have the correct header version ($RANK_VERSION)\n";
die("Detected version: $vers\n");
}

if (!read(INFILE, $buffer, 2))
{
die "File $infile looks malformed.\n";
}

my $bytes = unpack("S1", $buffer);
my $num = 0;
my $str = "";
my @stats;

#INPUT FILE
while ($bytes)
{
read(INFILE, $buffer, $bytes);
$players[$num]->{name} = unpack("Z*", $buffer);

read(INFILE, $buffer, 2);
$bytes = unpack("S1", $buffer);
read(INFILE, $buffer, $bytes);
$players[$num]->{auth} = unpack("Z*", $buffer);

read(INFILE, $buffer, 11 * 4);
@stats = unpack("L11", $buffer);
$players[$num]->{tks} = $stats[0];
$players[$num]->{damage} = $stats[1];
$players[$num]->{deaths} = $stats[2];
$players[$num]->{kills} = $stats[3];
$players[$num]->{shots} = $stats[4];
$players[$num]->{hits} = $stats[5];
$players[$num]->{hs} = $stats[6];
$players[$num]->{defuses} = $stats[7];
$players[$num]->{defuse_attempts} = $stats[8];
$players[$num]->{plants} = $stats[9];
$players[$num]->{explosions} = $stats[10];

read(INFILE, $buffer, 9*4);
@{$players[$num]->{hits}} = unpack("L9", $buffer);

read(INFILE, $buffer, 2);
$bytes = unpack("S1", $buffer);

$num++;
}

close(INFILE);

#OUTPUT FILE
if ($outfile ne "")
{
open (OUTFILE, ">$outfile") or die("Could not open output file: $outfile\n");
binmode(OUTFILE);

syswrite(OUTFILE, pack("s1", $RANK_VERSION));

my %player;
my @stats;
for ($i=0; $i<4042; $i++) #В переменной $i вы можете задать кол-во записей, которое необходимо обработать начиная с top1 (их кол-во узнаётся через /rank на сервере)
{
%player = %{$players[$i]};
@stats = @{$player{hits}};
if ($player{kills}>2000) { #здесь вы можете задать условие отсева выше обозначенного количества игроков
syswrite(OUTFILE, pack("S1", (length($player{name})+1) ));
syswrite(OUTFILE, pack("Z*", $player{name}));
syswrite(OUTFILE, pack("S1", (length($player{auth})+1) ));
syswrite(OUTFILE, pack("Z*", $player{auth}));
syswrite(OUTFILE, pack("L11",
$player{tks},
$player{damage},
$player{deaths},
$player{kills},
$player{shots},
$player{hits},
$player{hs},
$player{defuses},
$player{defuse_attempts},
$player{plants},
$player{explosions}));
for ($j=0; $j<9; $j++)
{
syswrite(OUTFILE, pack("L1", $stats[$j]));
} }
}

syswrite(OUTFILE, pack("S1", 0));

close(OUTFILE);
}