chat-counter.pl

来自「java开发的聊天室」· PL 代码 · 共 15 行

#文本计数器
sub counter
{
open(COUNTFILE,"$filehead$counter");
@line=<COUNTFILE>;
close(COUNTFILE);
$tcount=$line[0];
$tcount=0 if($tcount eq '');
$tcount=$tcount+1;
open(COUNTFILE,">$filehead$counter");
print COUNTFILE $tcount;
close(COUNTFILE);
return($tcount);
}
1;