Perl:检查当前日期是否在两个给定日期之间

Question

如果当天在另外两天之间，我将如何找到。

如果另外两天是星期二至星期四，下面的代码就可以工作

但是如果我想让我的用户给出一个范围，比如星期五到星期一，该怎么办。

    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";
        }

Answer 1

my $in = ( $start <= $end
   ? $start <= $dow && $dow <= $end
   : !( $end < $dow && $dow < $start )
);

或

my $in = ( $start <= $end
   ? $start <= $dow && $dow <= $end
   : $dow <= $end || $start <= $dow
);