perl：将当前时间与特定时间比较

Question

我是Perl的新手。我正在制作每天运行的脚本。我想检查当前时间不到特定时间。我当前的解决方案是我从localtime中提取小时 min ，然后对其进行比较。但是有人告诉我找到一个更好的解决方案。

当前代码：

my $flag;
for (;;) {
    $flag = GetValue();
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    if( $flag ) {
        #do action here
        last;
    } elsif ( $hour <= 17 ) {
        if( $min <=30 ) {
            print STDOUT "Keep running till 17:30 \n";
            sleep 300;
        } else {
            die "Error";
        }
    } else {
        die "Error";
    }
}

基本上，语句$ flag = getValue（）;有时会意外返回未定义的值，并导致脚本失败。因此，我们想检查$标志是否定义。如果定义了它，则我们执行一些代码并退出for循环。否则我们检查时间。如果时间少于17:30，那么我们要等待一段时间，然后尝试再次获得标志的价值。我只需要更改将当前时间比较17:30的逻辑

我想要我的东西：

} elsif ( $current_time <= 17:30 ) {
   print STDOUT "Keep running till 17:30 \n";
   sleep 300;
}

如何实现这一目标？

Answer 1

处理日期时间的好方法是使用一个好的库，例如 dateTime

my $dt_mark = DateTime
    -> now(time_zone => 'local')
    -> set(hour => 17, minute => 30);

for (;;) { 
   ...

   elsif ( DateTime->now(time_zone => 'local') <= $dt_mark ) {
      ...

避免为每个比较构建一个新对象，但这会使代码更加复杂。请注意，DateTime是一个大型库，这可能是一个过度的库。

如果目的确实是仅仅将当前时间与固定小时的时间进行比较，那么也许

elsif ( $hour < 17 or ($hour == 17 and $min <= 30) )

足够好了吗？

或形式和使用可以通过陈述目的进行词汇进行比较的字符串，

elsif ( sprintf("%02d%02d", $hour, $min) lt '1730' )

---

这样做

my (undef, $min, $hour) = localtime(time);

可能更清晰，并且直接指示localtime的返回的哪些部分。

也可以忽略时间，per localtime

localtime expr
localtime
...
如果省略了expr，则localtime使用当前时间（如time）。