我修改的

来源：互联网发布：软件网络验证系统编辑：程序博客网时间：2024/05/10 00:35

#        print   "$1,   $2,   $3   /n";
# }
# else   {
#        print   "error   date   /n";
# }
open(MYFILE,"logfile");
@test1= <MYFILE>;
$num=@test1;

@arraydate=();
$dateFileName="";

for($n=0; $n<$num; $n++)
{
$item=$test1[$n];
$s=substr($item,0,8);

        if($s=~ /(/d{4})(/d{2})(/d{2})$/)
        {
                $date="$1$2";
                $newdateindex=0;
                $newdateFlag="0";

                for($arrayitem=0;$arrayitem<@arraydate;$arrayitem++)
                {
                   if(@arraydate[$arrayitem] eq $date)
                   {
                       $newdateFlag="1";
                       $newdateindex=$arrayitem;
                   }
                }

                if($newdateFlag ne "1")
                {
                    $newdateindex=@arraydate;
                    @arraydate=(@arraydate,$date);
                }

                $dateFileName=@arraydate[$newdateindex];
                $path="/root/Desktop/work-records/perl-work/$dateFileName";
                open(FILE, ">>$path");

                $s1=substr($item,9,);
                while($s1=~ /([0-9]+)/g)
                {
                        $BN=$&;
                        print(FILE,"$BN,");
                 }
                 close FILE;
        }
}