Perl에서 RFC822 형식으로 날짜를 우아하게 인쇄하려면 어떻게해야합니까?

Question

Perl에서 RFC822 형식으로 날짜를 우아하게 인쇄하려면 어떻게해야합니까?

Answer 1

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

Answer 2

날짜 시간 스위트는 당신에게 여러 가지 방법으로, 예를 들면 제공 :

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

업데이트 : ( 에 지금 TIME_ZONE 인수를 추가, 일부 특정 시간대의 시간을 제공하기 위해) :

을

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

Answer 3

strftime으로 수행 할 수 있지만 %a (일) 및 %b (달)은 현재의 언어로 표시됩니다 로케일. man strftime에서

:

% 상기 현재 지역에 맞는 약식 요일 이름.
% b 현재 로켈에 따른 축약 된 월 이름입니다.

메일 해야 사용 (rfc2822 DATE AND TIME SPECIFICATION에서)에만이 이름의 날짜 필드 :

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