首页  »   Perl/Python

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

网友分享于:2013-05-29  浏览:4次
求:用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 perl

use 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);

相关解决方案

最新解决方案