perl对时间处理小记

 平时写脚本里面用到perl获取时间时候，如果是上午1-9点，获取的时间通常是1位，而实际使用过程中经常需要两位，比如1点，需要显示01

 

常用的是拼接，写法如下：

  if ($min < '10') {
   $mmin='0'.$min;
  }

还有一种办法就是格式化，写法如下：

my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
($sec,$min,$hour,$mday,$mon,$year) = (
    sprintf("%02d", $sec),
    sprintf("%02d", $min),
    sprintf("%02d", $hour),
    sprintf("%02d", $mday),
    sprintf("%02d", $mon + 1),
    $year + 1900
);
print "$year-$mon-$mday $hour:$min:$sec\n";