рассчитать дату следующего понедельника на данную дату

Question

Я ищу, чтобы вернуть дату следующего понедельника данной даты. Если данная дата уже по понедельникам, дата должна оставаться неизменной.

С другого поста я нашел сценарий для вычисления предыдущего понедельника данной даты с использованием DateTime.

use DateTime; 

my $date = DateTime->new(year => 2011, month => 6, day => 11); 
my $desired_dow = 1;   # Monday 
$date->subtract(days => ($date->day_of_week - $desired_dow) % 7); 
print "$date\n"; 

(кредит CJM)

Я просто не могу узнать, как редактировать этот, чтобы вычислить следующий понедельник (а не предыдущий). Может кто-нибудь помочь?

Answer 1

Изменить

$date->subtract(days => ($date->day_of_week - $desired_dow) % 7); 

в

$date->add(days => ($desired_dow - $date->day_of_week) % 7); 

или вы могли бы, возможно только что добавили неделю ваш "старый" понедельник:

$date->subtract(days => ($date->day_of_week - $desired_dow) % 7); 
$date->add(days => 7); 

Answer 2

#!/usr/bin/perl 

use strict; 
use warnings; 

use Time::Local; 
use POSIX 'strftime'; 

my $date = shift || die "No date given\n\n\tUsage: ./test.pl 2017-07-17, please note the format, CCYY-MM-DD\n\n"; 

my @date = split /-/, $date; 
$date[0] -= 1900; 
$date[1]--; 

die "Invalid date: $date\n" unless @date == 3; 

my $now = &timelocal(0, 0, 12, reverse @date); 

do{ 
    $now += 24 * 60 * 60; 
#}while ((strftime('%u', localtime $now) != 1) && (strftime('%u', localtime $now) != 5) && (strftime('%u', localtime $now) != 3)); ## For Multiple days, in case you want to find either, next monday, friday or wednesday 
}while (&strftime('%u', localtime $now) != 1);  #Values should be from 1 to 7, including... 

my @array_of_time  = localtime($now); 
my $formatted_time  = &strftime("%Y%m%d", @array_of_time); 
print ("Next Monday-[$formatted_time]\n"); 

Answer 3

Мне кажется, что принятый ответ (add часть).

Это то, что я использую:

my $date = DateTime->now; 
my $current_dow = $date->day_of_week; 
my $desired_dow = 1; # Monday 
$date->add(days => 7 - $current_dow + $desired_dow);