Làm cách nào để định dạng dấu thời gian trong Perl?

Question

Tôi muốn để có được timestamps này định dạng:

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

đâu nó luôn luôn 2 chữ số cho số trừ cho năm, nơi đó là 4 chữ số. Và nó dựa trên một chiếc đồng hồ 24 giờ.

Làm cách nào tôi có thể thực hiện việc này trong Perl? Tôi thích các hàm gốc hơn.

Answer 1

POSIX cung cấp strftime:

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

Bạn có thể bị cám dỗ để viết một cái gì đó như:

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

như một phương tiện tránh POSIX. Đừng! AFAIK, POSIX.pm đã được trong lõi từ năm 1996 hoặc 1997.

Answer 2

Hãy thử Date::Format

Answer 3

Đây là một chương trình con mà tôi sử dụng. Nó cho phép bạn có được dấu thời gian trong bất kỳ định dạng nào bạn thích.

#! /usr/bin/perl 
use strict; 
use warnings; 

use POSIX; 
use POSIX qw(strftime); 

sub getTime 
{ 
    my $format = $_[0] || '%Y%m%d %I:%M:%S %p'; #default format: 20160801 10:48:03 AM 
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); 
    return strftime($format, $sec, $min, $hour, $wday, $mon, $year, $mday); 
} 

# Usage examples 
print getTime()."\n";     #20160801 10:48:03 AM 
print getTime('%I:%M:%S %p')."\n";  #10:48:03 AM 
print getTime('%A, %B %d, %Y')."\n";  #Monday, August 01, 2016 
print getTime('%Y%m%d %H:%M:%S')."\n"; #20160801 10:48:03