「perl」時間範囲指定してのIF文を作成したい

Question

前提・実現したいこと

今が日本時間で4時から5時半の間であるときに、Aを実行したい。
（たぶんcronで定期的にファイルを実行しているからです）

Aというのは、もう既にあるif文である
if{今が日本時間で4時から5時半であるとき{if A}}の様な形にしたい

発生している問題・エラーメッセージ

該当のソースコード

試したこと

JSTをGMTに変換
システム時間をGMTに変換
etc...

補足情報（FW/ツールのバージョンなど）

3時間ググったりパイザで試行錯誤しましたが、いまいち進まず手がかりでも欲しいといった状況です。
情報不足や質問の意図がわからないなどありましたら申し訳ありません。

Answer 1

以下のようにしてください。

($sec,$min,$hour,$day,$month,$year) = localtime();
# 0時からの通算秒を計算
$serial_sec = $sec + $min * 60 + $hour * 60 * 60;
# 4時の通算秒を算出
$low = 4 * 60 * 60;
# 5時半の通算秒を算出
$high = 5 * 60 * 60 + 30 * 60;

if ($serial_sec >= $low && $serial_sec <= $high){
	処理A;
}

Comments

[naripon]

ご助力ありがとうございました！
おかげ様で今日中に仕事を片付けられました！

Answer 2

Time::Pieceを使えば時間データの演算ができます。

#!/usr/bin/env perl

use strict;
use warnings;
use Time::Piece;
use utf8;
binmode STDOUT, ':utf8';

my $a = new Time::Piece->strptime('2020-04-06 15:40:00', '%Y-%m-%d %H:%M:%S');
my $b = new Time::Piece->strptime('2020-04-06 15:45:00', '%Y-%m-%d %H:%M:%S');

my $diff = $a-$b; # Time::Pieceオブジェクト同士の計算ができる

if($diff>0){
  printf("aはbより %d 秒遅い\n", ($a-$b)->seconds);
}elsif($diff==0){
  printf("$a and $b is same\n");
}else{
  printf("aはbより %d 秒早い\n", ($b-$a)->seconds);
}

my $l = localtime; # 現在時刻はlocaltimeでTime::Pieceオブジェクトとして取得できる。
if($l>$a){
  print "現在時刻はaより遅い\n";
}

Comments

[naripon]

ご助力ありがとうございました！