如果当天在另外两天之间,我将如何找到。
如果另外两天是星期二至星期四,下面的代码就可以工作
但是如果我想让我的用户给出一个范围,比如星期五到星期一,该怎么办。
my $timestamp = time;
my $dow = ( localtime($timestamp) )[6];
my $range = '5-1'; # 5 being friday and 1 being monday
$range =~ m/(\d+)-(\d+)/;
my ( $start, $end ) = ( $1, $2 );
if ( $start >= 0 && $end <= 6 && $dow >= $start && $dow <= $end ) {
print "$dow falls between your range";
}
最佳答案
my $in = ( $start <= $end
? $start <= $dow && $dow <= $end
: !( $end < $dow && $dow < $start )
);
或
my $in = ( $start <= $end
? $start <= $dow && $dow <= $end
: $dow <= $end || $start <= $dow
);
关于Perl:检查当前日期是否在两个给定日期之间,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24482784/