Character cleaning.pl

[artesik]

Character cleaner.pl
# Deletes players which haven't logged for a week and have level below 30
use warnings;
$days = 7;
$minlevel = 30;
$counter = 0;

for $file (glob "../data/players/*")
{
next unless $file =~ /xml$/;

open(FILE, $file);
@content = <FILE>;
$_ = "@content";
close(FILE);

/account="(\d+)"/;
$account = $1;
/lastlogin="(\d+)"/;
$lastlogin = $1;
/level="(\d+)"/;
$level = $1;

if ((time() - $lastlogin) > $days*24*3600 && $lastlogin > 0 && $level < $minlevel)
{
unlink("$file");
unlink("../data/accounts/$account.xml");
unlink("../data/vip/$account.xml");
print "$file\n";
$counter++;
}
}

print "$counter acccounts deleted\n";

-------------------------------------------
jak uzyc tego narzedzia (tego czegos)?? bo to jest .txt a chcialem wyczyscic trohce otsa XD

 

[seneri]

Odp: Character cleaning.pl

To jest SOURCE. Wiesz co to? Je?li nie, to si? nie zabieraj, na tym trzeba si? zna?, bo mo?esz ca?kiem zepsu? silnik.
Je?li wiesz co to source, to w?a?nie tam musisz go umie?ci?. Gdzie znalaz?e? ten skrypt? Nie by?o tam napisane o instalacji go?

 

[artesik]

Odp: Character cleaning.pl

dzieki za pomoc XD