Как я могу отформатировать метку времени в Perl? - PullRequest
Новая
       22

Как я могу отформатировать метку времени в Perl?

15 голосов
/ 27 января 2010

Я хотел бы получить форматирование временных меток: 

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

Где это всегда 2 цифры для номера, кроме года, где это 4 цифры. И это основано на 24-часовых часах.

Как я могу сделать это в Perl? Я предпочитаю нативные функции.

Ответы [ 3 ]

37 голосов
/ 27 января 2010

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", 
       $day, $mon + 1, 1900 + $year, $hr, $min, $sec);

как способ избежать POSIX . Не надо! AFAIK, POSIX.pm был в ядре с 1996 или 1997 года.

1 голос
/ 27 января 2010

Попробуйте Date :: Format функции форматирования из CPAN.

0 голосов
/ 01 августа 2016

Это подпрограмма, которую я использую.Это позволяет вам получить метку даты в любом формате, который вы предпочитаете. 

#! /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
...