> こんばんは。お世話になります。
> 新規登録して１．２回プレイしただけで放置しているアカウントを自動的に判別し、
> 通常のキャラクターより短い自動削除期間を適用する、という事は可能でしょうか？
> 判別方法はログイン回数のパラメータを用意してもいいと思いましたが、
> 「ステラツィオを一つも持っていなく、かつ所持金が一定額より低い」というようなものでも（確実ではないですが）良いんですが。

sub find_delを以下のように変更すれば実現できると思います。
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
↓
my $delta = 0;
$delta = 3 * 86400 if($is eq '' && $mn < 100); # ステラツィオを所持しておらず所持金が100G未満の場合は3日「短く」する
if ($now + $delta > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }

上記では$isと$mnを使用していますが、これらはsub list_orderのsplit(/<>/,$lstlines[$_])で値がセットされているので使用できます。そのため、ここでセットしていないパラメータを条件とする場合はセットするように変更する必要があります。

▼関連発言
│
└◆1515:新規登録後すぐに放置になっているキャラクターを早く.. [矢神] 05/14 22:24
　└◆1516:Re:新規登録後すぐに放置になっているキャラクター... [moon] 05/14 23:55
　　└◆1517:ありがとうございました。 [矢神] 05/15 06:02<-last