Perl 中比較運(yùn)算符與其他語(yǔ)言中相比更容易出錯(cuò)，數(shù)值類型判斷與字符類型判斷的運(yùn)算符可以進(jìn)行混用而且不會(huì)出異常，這往往會(huì)導(dǎo)致程序出現(xiàn)不易修復(fù)的錯(cuò)誤

兩種比較運(yùn)算符

字符判斷

設(shè)置變量 $a = "abc", $b = "xyz"

程序示例:

$a = "abc";
$b = "xyz";
$a eq $b   返回   false
$a ne $b   返回   true
$a cmp $b  返回   -1
$a gt $b   返回   false
$a lt $b   返回   true
$a ge $b   返回   false
$a le $b   返回   true

數(shù)值判斷

設(shè)置變量 $a = 10， $b = 20

程序示例:

$a = 10;
$b = 20;
$a == $b   返回   false
$a != $b   返回   true
$a <=> $b  返回   -1
$a > $b    返回   false
$a < $b    返回   true
$a >= $b   返回   false
$a <= $b   返回   true

如果用錯(cuò)會(huì)發(fā)生什么？

直接上測(cè)試數(shù)據(jù):

$a=abc,  $b=xyz
$a == $b    返回值：1   布爾值： true
$a != $b    返回值：    布爾值： false
$a <=> $b   返回值：0   布爾值： false
$a > $b     返回值：    布爾值： false
$a < $b     返回值：    布爾值： false
$a >= $b    返回值：1   布爾值： true
$a <= $b    返回值：1   布爾值： true
$a eq $b    返回值：    布爾值： false
$a ne $b    返回值：1   布爾值： true
$a cmp $b   返回值：-1  布爾值： true
$a gt $b    返回值：    布爾值： false
$a lt $b    返回值：1   布爾值： true
$a ge $b    返回值：    布爾值： false
$a le $b    返回值：1   布爾值： true
$a=123,  $b=45
$a eq $b    返回值：    布爾值： false
$a ne $b    返回值：1   布爾值： true
$a cmp $b   返回值：-1  布爾值： true
$a gt $b    返回值：    布爾值： false
$a lt $b    返回值：1   布爾值： true
$a ge $b    返回值：    布爾值： false
$a le $b    返回值：1   布爾值： true
$a=123,  $b=456
$a eq $b    返回值：    布爾值： false
$a ne $b    返回值：1   布爾值： true
$a cmp $b   返回值：-1  布爾值： true
$a gt $b    返回值：    布爾值： false
$a lt $b    返回值：1   布爾值： true
$a ge $b    返回值：    布爾值： false
$a le $b    返回值：1   布爾值： true
$res of $a ne $b length:0

由測(cè)試結(jié)果可知:

1. ==, != 數(shù)字型比較運(yùn)算符對(duì)所有字符類型的判斷均為真，而 eq, ne 字符型比較運(yùn)算符對(duì)所有比較內(nèi)容均當(dāng)做字符按字典序進(jìn)行比較，如果用錯(cuò)將導(dǎo)致嚴(yán)重錯(cuò)誤，且不易察覺(jué)
2. 布爾表達(dá)式的結(jié)果中判斷為真時(shí)實(shí)際返回值為"1"， 而結(jié)果為假是返回值為""，其長(zhǎng)度為零，并不是0, "0" 或false，這與其他主流語(yǔ)言是有很大不同的
3. 實(shí)際上perl語(yǔ)言中并沒(méi)有布爾數(shù)據(jù)類型，而是標(biāo)量、數(shù)組、哈希三種標(biāo)準(zhǔn)數(shù)據(jù)類型，需要特別注意

總結(jié)

在perl的條件語(yǔ)句中使用比較運(yùn)算符時(shí)需要區(qū)分比較內(nèi)容是數(shù)字型還是字符型，選擇正確的比較運(yùn)算符

錯(cuò)誤樣例代碼

boolean_expression.pl

#!/bin/perl

###################
#2019/04/10
#by dongye
###################

$a = "abc";
$b = "xyz";

sub expression{
    my $res = shift;
    my $exp = shift;
    print "\$a $exp \$b \t返回值：$res\t布爾值： ";
    if ($res){
        print "true\n";
    }
    else{
        print "false\n";
    }
}
print "\$a=$a,  \$b=$b\n";
&expression($a == $b, "==");
&expression($a != $b, "!=");
&expression($a <=> $b, "<=>");
&expression($a > $b, ">");
&expression($a < $b, "<");
&expression($a >= $b, ">=");
&expression($a <= $b, "<=");

&expression($a eq $b, "eq");
&expression($a ne $b, "ne");
&expression($a cmp $b, "cmp");
&expression($a gt $b, "gt");
&expression($a lt $b, "lt");
&expression($a ge $b, "ge");
&expression($a le $b, "le");

$a = 123;
$b = 45;
print "\$a=$a,  \$b=$b\n";
&expression($a eq $b, "eq");
&expression($a ne $b, "ne");
&expression($a cmp $b, "cmp");
&expression($a gt $b, "gt");
&expression($a lt $b, "lt");
&expression($a ge $b, "ge");
&expression($a le $b, "le");

$a = 123;
$b = 456;
print "\$a=$a,  \$b=$b\n";
&expression($a eq $b, "eq");
&expression($a ne $b, "ne");
&expression($a cmp $b, "cmp");
&expression($a gt $b, "gt");
&expression($a lt $b, "lt");
&expression($a ge $b, "ge");
&expression($a le $b, "le");

$res = ($a eq $b);
print "\$res of \$a ne \$b length:".length($res)."\n";