#!/usr/bin/perl  
my @LINE;
my $line;
while ($line=<>){
             chomp($line);
             next if $line eq '';
             @LINE = split(/\s+/,$line);
             $time=sprintf("%.0f",$LINE[0]);
             $time=~s/^\d+/localtime $time/e;
             $line=~s/$LINE[0]/$time/;
             print "$line \n";
     }

这是在cu论坛上找到一个对squid日志的时间格式转换的perl脚本，小弟刚碰perl，对这段脚本很多地方都不太理解，希望哪个perl大虾能对该脚本注解一下，不胜感激;)。当然越详细越好！