$mon++;#因为代表月数[0,11],要将$mon加一之后才能符合实际情况。
open (FILE,"$path/ip.txt");#以只读方式打开ip记录数据文件,此文件是记录访客ip地址和访问时间的数据文件,其记录格式是:202.163.444.231,21,46,30数据之间用“,”分开以利进行数据分割。
@LINES=<FILE>; #以行方式读取ip.txt内的数据并赋给数组成@LINE.
close(FILE);#关闭ip.txt文件
open (FILE,">$path/ip.txt");#以写入方式打开ip.txt文件,注意:用此方式打开时原数据将被清空。
$check=0;#将变量$check赋予0
foreach(@LINES)#进入循环并将数组@LINES内的数据一一指定给$_这个内定变量
{
($addr,$come_hour,$come_min,$come_sec)=split(/,/,$_);#将变量$_内的信息以“,”号标志进行分割,并将分割后的ip地址赋值给变量$addr; 时赋值给变量$come_hour;分赋值给变量$come_min;秒赋值给变量$come_sec.