Tarihi, tarihi RFC822 biçiminde Perl'de nasıl zarif olarak basarım?

Question

Tarihi, RFC822 biçiminde Perl'de zarif bir şekilde nasıl yazdırabilirim?

Answer 1

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

Answer 2

DateTime süit farklı şekillerde bir dizi örn verir:

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

Güncelleme: ( için şimdi bir TIME_ZONE argüman eklemek, bazı belirli Zaman dilimi için zaman vermek):

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

Answer 3

strftime ile yapılabilir, ancak %a (gün) ve %b (ay) geçerli dilde ifade edilir. yerel ayar. man strftime itibaren

:

% a Yerele özgü kısaltılmış gün ismi.
% b Geçerli yerel ada göre kısaltılmış ay adı.

posta zorunluluk kullanım (rfc2822 DATE AND TIME SPECIFICATION itibaren) sadece bu isimler Tarih alanı:

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