Wie drucke ich elegant das Datum im RFC822-Format in Perl?

Question

Wie kann ich das Datum im Perlformat RFC822 elegant drucken?

Answer 1

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

Answer 2

Die Datetime Suite bietet Ihnen eine Reihe von verschiedenen Möglichkeiten, wie zB:

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()); 

Update: Zeit für eine bestimmte Zeitzone zu geben, fügen Sie ein time_zone Argument bis jetzt():

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

Answer 3

Es kann mit strftime durchgeführt werden, aber seine %a (Tag) und %b (Monat) sind in der Sprache des aktuellen ausgedrückt Gebietsschema.

Von man strftime:

% a Der abgekürzte Name des Wochentags entsprechend der aktuellen locale.
% b Der abgekürzte Name des Monats gemäß dem aktuellen Gebietsschema.

Das Feld Datum in Mail Muss Verwendung nur diese Namen (von rfc2822 DATE AND TIME SPECIFICATION): tag

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