perl函数"timelocal"和"timegm"的区别

最新推荐文章于 2021-07-30 14:55:21 发布

iteye_17919

最新推荐文章于 2021-07-30 14:55:21 发布

阅读量512

点赞数

分类专栏： Perl

本文链接：https://blog.csdn.net/iteye_17919/article/details/82520108

版权

Perl 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个Perl脚本，该脚本用于解析特定格式的日志时间，并将其转换为标准时间格式。通过使用Time::Local模块，脚本能够处理如[11/Jun/2012:23:12:03+0800]这样的时间字符串，并转换为YYYY-MM-DD HH:MM:SS格式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 #!/usr/bin/perl
 use warnings;
 use strict;
 use Time::Local;
 
 ## [11/Jun/2012:23:12:03 +0800] -> 12345667 -> 2012-06-11 23:12:03
 
 my %monhash = ("Jan"=>1,"Feb"=>2,"Mar"=>3,"Apr"=>4,"May"=>5,"Jun"=>6,"Jul"=>7,"Aug"=>8,"Sep"=>9,"Oct"=>10,"Nov"=>11,"Dec"=>12);
 sub to_Stand_time {
         my $str = shift @_;
         my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime($str);
         $year = 1900 + $year;
         $mon = $mon + 1;
         return sprintf("%s-%02d-%02d %02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);
 }
 while(<>){
         chomp;
         if(m|^\[(\d+)/(\w+)/(\d+):(\d+):(\d+):(\d+)\s+\+\d+\]$|){
                 my($d,$m,$y,$h,$mm,$s)=($1,$2,$3,$4,$5,$6);
                 $m = $monhash{$m};
                 my $ud = Time::Local::timelocal($s,$mm,$h,$d,$m-1,$y-1900);
                 my $dt = to_Stand_time($ud);
                 print STDERR "$_ -> $ud -> $dt\n";
         }
 }