
DateTime::sub 메서드를 사용하여 특정 날짜에서 특정 기간을 뺀 날짜를 구할 때, 현재 날짜보다 이전 날짜일 경우 현재 날짜를 반환하는 방법은 다음과 같습니다.
#hostingforum.kr
perl
use DateTime;
my $current_date = DateTime->now();
my $target_date = DateTime->new(year => 2024, month => 1, day => 1);
# 1년을 뺀 날짜를 구합니다.
my $subtracted_date = $target_date->subtract(years => 1);
# 현재 날짜보다 이전 날짜일 경우 현재 날짜를 반환합니다.
my $result_date = $current_date < $subtracted_date ? $current_date : $subtracted_date;
print $result_date->strftime('%Y-%m-%d');
위 코드에서는 `subtract` 메서드를 사용하여 1년을 뺀 날짜를 구하고, `current_date`와 `subtracted_date`를 비교하여 현재 날짜보다 이전 날짜일 경우 현재 날짜를 반환합니다.
2025-07-04 23:36