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

Question

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

Answer 1

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

Answer 2

La suite DateTime le da un número de maneras 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 en particular, añadir un argumento time_zone ahora():

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

Answer 3

Se puede hacer con strftime, pero su %a (día) y %b (mes) se expresan en el idioma de la corriente locale

De man strftime:

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

el campo de fecha en el correo necesidad uso sólo estos nombres (de rfc2822 DATE AND TIME SPECIFICATION):

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

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

código Por lo tanto portátil debe cambiar a la C local:

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";