perl을 사용하여 주어진 날짜의 다음 날짜를 어떻게 찾을 수 있습니까?

Question

날짜의 다음 날짜를 찾아야합니다. 나는 $의 entered_date 변수에 저장된 날짜의 다음 날짜를 찾으려면 위의 코드에서

use strict; 

my $entered_date="2011-11-30"; 

... 솔루션 .... 미리

감사합니다 ...

을 공유하세요

Answer 1

perl -MDate::Calc -E ' use Date::Calc qw(Add_Delta_Days);say join "-", Add_Delta_Days(2011,11,30,1);' 

2011-12-1 

(매우 안전하지 않음)

use Date::Calc qw(Add_Delta_Days); 
my $entered_date = "2011-12-31"; 
print join "-", Add_Delta_Days(split(/-/,$entered_date),1);' 

2012년 1월 1일

Answer 2

use Time::Piece; 
use Time::Seconds; 
my $date = Time::Piece->strptime($entered_date, "%Y-%m-%d"); 
$date += ONE_DAY; 
return $date->strftime("%Y-%m-%d"); 

[편집 : Wintendo와 호환되도록 %F에서 %Y-%m-%d으로 변경되었습니다. 감사 @bvr] 스크립트에서

Answer 3

use Date::Simple; 

my $date = Date::Simple->new($entered_date); 

$date++; 

print $date; 

() 새로운 under constructors

을 설명 이해할 형식

Answer 4

use strict; 
use DateTime::Format::Flexible; 
my $entered_date = "2011-11-30"; 

my $dt = DateTime::Format::Flexible->parse_datetime($entered_date); 
print $dt->add(days => 1)->ymd;