perl - 如何将数字与 bash 或 Perl 中的范围进行比较？

Question

如何编写一个数字与范围的比较脚本？

1不在2-5之内

或者

3在2-5以内

Answer 1

它甚至更好Perl6。

链式比较运算符：

if( 2 <= $x <= 5 ){
}

智能匹配运算符：

if( $x ~~ 2..5 ){
}

路口：

if( $x ~~ any 2..5 ){
}

给定/当运算符：

given( $x ){
  when 2..5 {
  }
  when 6..10 {
  }
  default{
  }
}

Answer 2

在 Perl 中：

if( $x >= lower_limit && $x <= upper_limit ) {
   # $x is in the range
}
else {
   # $x is not in the range
}

Answer 3

在 bash 中：

$ if [[ 1 -gt 2 && 1 -lt 5 ]]; then echo "true"; fi
$ if [[ 3 -gt 2 && 1 -lt 5 ]]; then echo "true"; fi
true

Answer 4

Perl 5.10 中也提供了智能匹配运算符：

if ( $x ~~ [2..5] ) {
    # do something
}

Answer 5

在 Bash 中：

x=9; p="\<$x\>"; if [[ $(echo {10..20}) =~ $p ]]; then echo true; else echo false; fi

编辑以正确处理以下评论中所述的条件。

rangecheck () { local p="\<$1\>"; if [[ $(echo {10..20}) =~ $p ]]; then echo true; else echo false; fi; }
for x in {9..21}; do rangecheck "$x"; done
false
true
.
.
.
true
false

Answer 6

test 版本从[[Bash 3.0 开始支持正则表达式。

[[ 3 =~ ^[2-5]$ ]]; echo $? # 0

如果输入不是数字，则 test 中的数字比较运算符有时会返回错误：

[[ 1a -ge 1 ]]; echo $? # value too great for base (error token is "1a")
[[ '$0' -le 24 ]] # syntax error: operand expected (error token is "$o")

您可以测试输入是否为整数=~：

x=a23; [[ "$x" =~ ^[0-9]+$ && "$x" -ge 1 && "$x" -le 24 ]]; echo $? # 1
x=-23; [[ "$x" =~ ^-?[0-9]+$ && "$x" -ge -100 && "$x" -le -20 ]]; echo $? # 0

Answer 7

在 perl 中

grep {/^$number$/} (1..25);

如果数字在范围内，将为您提供真值，否则为假值。

例如：

[dsm@localhost:~]$ perl -le 'print "has `$ARGV[0]`" if grep {/^$ARGV[0]$/} (1..25)' 4
has `4`
[dsm@localhost:~]$ perl -le 'print "has `$ARGV[0]`" if grep {/^$ARGV[0]$/} (1..25)' 456
[dsm@localhost:~]$