¿Cómo imprimo elegantemente la fecha en formato RFC822 en Perl?

datetime date

Question

¿Cómo puedo imprimir elegantemente la fecha en formato RFC822 en Perl?

Answer 1

El conjunto de programas DateTime le ofrece varias formas diferentes, por ejemplo:

use DateTime;
print DateTime->now()->strftime("%a, %d %b %Y %H:%M:%S %z");

use DateTime::Format::Mail;
print DateTime::Format::Mail->format_datetime( DateTime->now() );

print DateTime->now( formatter => DateTime::Format::Mail->new() );

Actualización: para dar tiempo a alguna zona horaria particular, agregue un argumento time_zone a now ():

DateTime->now( time_zone => $ENV{''TZ''}, ... )

Answer 2

use POSIX qw(strftime);
print strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time())) . "/n";

Answer 3

Se puede hacer con strftime , pero su %a (día) y %b (mes) se expresan en el idioma de la configuración regional actual.

Del man strftime :

% a El nombre abreviado de la semana de acuerdo con la configuración regional actual.
% b El nombre abreviado del mes de acuerdo con la configuración regional actual.

El campo de fecha en el correo debe usar solo estos nombres (desde rfc2822 FECHA DE LA FECHA Y LA HORA ):

day         =  "Mon"  / "Tue" /  "Wed"  / "Thu" /  "Fri"  / "Sat" /  "Sun"

month       =  "Jan"  /  "Feb" /  "Mar"  /  "Apr" /  "May"  /  "Jun" /
               "Jul"  /  "Aug" /  "Sep"  /  "Oct" /  "Nov"  /  "Dec"

Por lo tanto, el código portátil debería cambiar a la configuración regional C :

use POSIX qw(strftime locale_h);

my $old_locale = setlocale(LC_TIME, "C");
my $date_rfc822 = strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time()));
setlocale(LC_TIME, $old_locale);

print "$date_rfc822/n";