【分享】一个转换时间格式的perl脚本

hotsummer

#!/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,又恰巧需要这段脚本,但是很多地方不知道是什么意思,望哪位高手给个注解,当然越详细越好啦!!
非常感谢