perl - 如何在 Perl 中格式化时间戳？

Question

我想获取此时间戳格式:

01/13/2010 20:42:03 - -

数字始终为 2 位数字，但年份除外，年份为 4 位数字。它基于 24 小时制。

如何在 Perl 中执行此操作？我更喜欢原生函数。

Answer 1

POSIX提供strftime :

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

You might be tempted to write something like:

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

作为避免的手段 POSIX 。不! AFAIK，POSIX.pm 自 1996 年或 1997 年以来一直是核心。