Быстро добраться до ГГГГ-мм-дд ЧЧ: ММ: СС в Perl

Что не использует модуль DateTime для выполнения грязной работы? Легко писать и запоминать!

use strict;
use warnings;
use DateTime;

my $dt   = DateTime->now;   # Stores current date and time as datetime object
my $date = $dt->ymd;   # Retrieves date as a string in 'yyyy-mm-dd' format
my $time = $dt->hms;   # Retrieves time as a string in 'hh:mm:ss' format

my $wanted = "$date $time";   # creates 'yyyy-mm-dd hh:mm:ss' string
print $wanted;

Как только вы знаете, что происходит, вы можете избавиться от темпов и сохранить несколько строк кода:

use strict;
use warnings;
use DateTime;

my $dt = DateTime->now;
print join ' ', $dt->ymd, $dt->hms;

Попробуйте следующее:

use POSIX qw/strftime/;
print strftime('%Y-%m-%d',localtime);

Метод strftime делает работу эффективно для меня. Очень простой и эффективный.

Time:: Piece (в ядре, так как Perl 5.10) также имеет функцию strftime и по умолчанию перегружает localtime и gmtime для возврата объектов Time:: Piece:

use Time::Piece;
print localtime->strftime('%Y-%m-%d');

или без переопределенного локального времени:

use Time::Piece (); 
print Time::Piece::localtime->strftime('%F %T');

Я сделал небольшой тест (Perl v5.20.1 под FreeBSD в VM), вызывающий следующие блоки: 1.000.000 раз каждый:

А

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

В

my $now = strftime('%Y%m%d%H%M%S',localtime);

С

my $now = Time::Piece::localtime->strftime('%Y%m%d%H%M%S');

со следующими результатами:

A: 2 секунды

B: 11 секунд

C: 19 секунд

Это, конечно, не тщательный тест или бенчмарк, но, по крайней мере, он воспроизводится для меня, поэтому, хотя это сложнее, я бы предпочел первый метод, если генерация datetimestamp требуется очень часто.

Вызов (например, под FreeBSD 10.1)

my $now = `date "+%Y%m%d%H%M%S" | tr -d "\n"`;

может не быть такой хорошей идеей, потому что она не зависит от ОС и занимает довольно много времени.

С уважением, Хольгер

если вы просто хотите, чтобы человекочитаемая строка времени, а не точный формат:

$t = localtime;
print "$t\n";

печатает

Mon Apr 27 10:16:19 2015

или все, что настроено для вашей локали.

Time::Piece::datetime() может устранить T.

use Time::Piece;
print localtime->datetime(T => q{ });

Короткий и сладкий, никаких дополнительных модулей не требуется:

my $toDate = `date +%m/%d/%Y" "%l:%M:%S" "%p`;

Результат, например, будет: 25.04.2012 9:30:33 AM