如何在Perl格式化时间戳?

前端之家收集整理的这篇文章主要介绍了如何在Perl格式化时间戳?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想得到这个时间戳格式:
01/13/2010 20:42:03 - -

除了年份之外,它总是2位数字,它是4位数字.它是基于24小时制的.

如何在Perl中执行此操作?我喜欢本机功能.

解决方法

POSIX提供 strftime
$perl -MPOSIX -we 'print POSIX::strftime("%m/%d/%Y %H:%M:%S\n",localtime)'
01/27/2010 14:02:34

你可能会想像这样写:

my ($sec,$min,$hr,$day,$mon,$year) = localtime;
printf("%02d/%02d/%04d %02d:%02d:%02d\n",$mon + 1,1900 + $year,$sec);

作为避免POSIX的手段.不要!自1996年或1997年以来,AFAIK,POSIX.pm一直处于核心地位.

猜你在找的Perl相关文章