求：用perl判定现在的时间是否在am2:00～am7:00之间的算式解决办法

求：用perl判定现在的时间是否在am2:00～am7:00之间的算式
判定现在的时间是否在am2:00～am7:00之间
Perl算式

[解决办法]
perl -e "print time()%(3600*24)/3600+8"

Perl code

my $hour=time()%(3600*24)/3600+8;#8表示东8区if($hour>=2 && $hour<=7){   print("between 2~7\n");}
[解决办法]
Perl code
my $hour = (localtime)[2];print "$hour\n" if ($hour >= 2 && $hour <= 7);
[解决办法]
Perl code
#!/usr/bin/env perluse strict;use warnings;my $start = '20120525020000';my $stop  = '20120525070000';my @dt = (localtime)[0..5];my $dt = sprintf "%04d%02d%02d%02d%02d%02d", $dt[5] + 1900, $dt[4] + 1, $dt[3], $dt[2], $dt[1], $dt[0];print "hit\n" if ($dt >= $start && $dt <= $stop);