將時間與Perl比較

Question

我想檢查當前時間是否小，等於或大於20:00（例如）。 我怎麼可以用Perl做到這一點？

謝謝。

Answer 1

查看localtime功能。

use warnings; 
use strict; 

my $after_time = "13:32"; 

my @time = localtime(time);  

if ($after_time =~ /(\d+):(\d+)/ and 
    $time[2] >= $1 and 
    $time[1] >= $2 
) 
{ 
    print "It is after $after_time";  
} 

更新：謝謝你，戴維十字架，指出原代碼是由於兩個電話給有缺陷localtime()。

Answer 2

這並不完全清楚你在問什麼，但可能是這樣的。

use Time::Piece; 

my $hour = localtime->hour; 

if ($hour < 20) { 
    say "It's before 20:00"; 
} elsif {$hour > 20) { 
    say "It's after 20:00"; 
} else { 
    say "It's 20:00"; 
} 

Answer 3

my $now = DateTime->now(time_zone => 'local'); 
my $cutoff = $now->clone->truncate(to => 'day')->set(hour => 20); 

if ($now < $cutoff) { 
    say "It's before 20:00"; 
} elsif ($now > $cutoff) { 
    say "It's after 20:00"; 
} else { 
    say "It's exactly 20:00"; 
} 

這可能是這種情況有點矯枉過正，但日期時間的靈活性，讓您輕鬆實現其他邏輯（不同的截止工作日/週末，截止於小時和分鐘），無需陷得大部分進入if-then-else邏輯。

Answer 4

其實正確的「如果」條件就有所不同了，你不需要檢查分鐘也大，如果時間不超過分鐘以上（我也是固定的標誌方向:)

use warnings; 
use strict; 

my $after_time = "13:32"; 

my @time = localtime(time);  

if ($after_time =~ /(\d+):(\d+)/ 
    and (($time[2] > $1) || ($time[2] == $1 and $time[1] >= $2)) 
) { 
    print "It is after $after_time";  
}