Perl 水曜日に処理を変えたい

質問

人の作ったものですが、月曜午前０時で処理を切り替えるようになっています。
これを水曜午前０時に変更するにはどうすればいいでしょうか？
長いですがよろしくお願いします。

sub GetNextWDayTime
{
my $time = time;
my ($sec, $min, $hour, $wday) = (localtime($time))[0,1,2,6];
my $now = ($wday * 60 * 60 * 24) + ($hour * 60 * 60) + ($min * 60) + $sec;
my $next = ($_[0] * 60 * 60 * 24) + ($_[1] * 60 * 60) + ($_[2] * 60) + $_[3];
#if $next is small, $next is next week.
if($next < $now){ $time = $time + (60 * 60 * 24 * 7); }

$time = $time + (($_[0] - $wday) * 60 * 60 * 24);
$time = $time + ($_[3] - $sec);
$time = $time + (($_[2] - $min) * 60);
$time = $time + (($_[1] - $hour) * 60 * 60);
return $time;
}

sub GetLastWDayTime
{
my $time = time;
my ($sec, $min, $hour, $wday) = (localtime($time))[0,1,2,6];
my $now = ($wday * 60 * 60 * 24) + ($hour * 60 * 60) + ($min * 60) + $sec;
my $last = ($_[0] * 60 * 60 * 24) + ($_[1] * 60 * 60) + ($_[2] * 60) + $_[3];
#if $last is large, $last is next week.
if($last > $now){ $time = $time - (60 * 60 * 24 * 7); }

$time = $time + (($_[0] - $wday) * 60 * 60 * 24);
$time = $time + ($_[3] - $sec);
$time = $time + (($_[2] - $min) * 60);
$time = $time + (($_[1] - $hour) * 60 * 60);
return $time;
}

回答No.1

kumoz · ベストアンサー

２つのサブルーチンは指定された曜日・時刻のエポック秒を返すだけなので、変更する部分は質問に書かれているサブルーチンの中身ではなくサブルーチンを呼び出す部分だと思います。GetNextWDayTime(1, n, n, n) あるいは GetLastWDayTime(1, n, n, n) のような形で呼び出していると想定されますが、その第１引数が曜日ですので、それを 1 から 3 に変更すればよいと思います。

お礼

GetNextWDayTimeとGetLastWDayTimeを変更したらうまくいきました。
ありがとうございます。