Como posso formatar um registro de data e hora em Perl?
Pergunta
Eu gostaria de obter esta formatação de data e hora:
01/13/2010 20:42:03 - -
Onde são sempre 2 dígitos para o número, exceto o ano, onde são 4 dígitos. E é baseado em um relógio de 24 horas.
Como posso fazer isso em Perl? Eu prefiro funções nativas.
Solução
$ perl -MPOSIX -we 'print POSIX::strftime("%m/%d/%Y %H:%M:%S\n", localtime)' 01/27/2010 14:02:34
Você pode ficar tentado a escrever algo como:
my ($sec, $min, $hr, $day, $mon, $year) = localtime;
printf("%02d/%02d/%04d %02d:%02d:%02d\n",
$day, $mon + 1, 1900 + $year, $hr, $min, $sec);
como um meio de evitar Posix. Não! ATÉ ONDE SEI, POSIX.pm
está no núcleo desde 1996 ou 1997.
Outras dicas
Tente o Formato de data Formatando sub -rotinas da CPAN.
Esta é uma sub -rotina que eu uso. Ele permite que você obtenha o carimbo de hora de data em qualquer formato que preferir.
#! /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
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow