new

最新推荐文章于 2025-03-01 14:48:15 发布

popkiler

最新推荐文章于 2025-03-01 14:48:15 发布

阅读量452

点赞数

CC 4.0 BY-SA版权

文章标签： date

本文链接：https://blog.youkuaiyun.com/popkiler/article/details/1741844

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

@arraydate=();
@arrayItem=();

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";

                print "$1$2:/n";
        $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);
        }

                $s1=substr($item,9,);
                while($s1=~ /([0-9]+)/g)
                {
                        $BN=$&;
                        print "$BN,";
            @arrayitem[newdateindex]="$BN,@arrayitem[$newdateindex]";
                        #@result=(@result, $BN);
                 }

        }
                print "/n";
                #print "$1$2:bug No is @result,/n";

}
print "all ; @arraydate/n";
for($ai=0;$ai<@arraydate;$ai++)
{
print "@arraydate[$ai]:@arrayitem[$ai]";

}