Perl等效於（Postgre）SQL BETWEEN運算符？

Question

有這樣的事嗎？相當於a <= expr <= b，或者用SQL的說法expr BETWEEN a AND b，其中expr只評估一次？或者只是要求這個getting silly？

Answer 1

有很多種方法可以做到這在Perl。

if($a < $x and $x < $b){ ... } 
... if $a < $x and $x < $b; 

use 5.10.1; 
if($x ~~ [$a..$b]){ ... } 

given($x){ 
    when([$a..$b]){ ... } 
} 

use 5.11.0; # development branch 
given($x){ 
    ... when [$a..$b]; 
} 

Answer 2

我認爲這是你唯一的選擇。

$x = expr; 

if ($a < $x && $x < $b) { 
    # stuff 
} 

Answer 3

我不認爲他們完全一致，但看看Range Operators。

Answer 4

你可以使用Range operator + smart macthing：

if($expr ~~ [$a..$b]) 

Answer 5

在Perl6，比較運算符是環連接。

http://perlcabal.org/syn/S03.html#Chained_comparisons：

Perl 6的支持自然延伸比較運算符，允許多個操作數：

if 1 < $a < 100 { say "Good, you picked a number *between* 1 and 100." } 
if 3 < $roll <= 6    { print "High roll" } 
if 1 <= $roll1 == $roll2 <= 6 { print "Doubles!" } 

在Perl 5，它們不是。