Perl 中比較運算符與其他語言中相比更容易出錯，數值類型判斷與字符類型判斷的運算符可以進行混用而且不會出異常，這往往會導致程序出現(xiàn)不易修復的錯誤
兩種比較運算符
字符判斷
設置變量 $a = "abc", $b = "xyz"
| 運算符 | 描述 | 實例 |
|---|---|---|
| eq | 檢查左邊的字符串是否等于右邊的字符串篙贸，如果是返回 true君珠，否則返回 false | ($a eq $b) 返回 false |
| ne | 檢查左邊的字符串是否不等于右邊的字符串肾筐，如果是返回 true哆料，否則返回 false | ($a ne $b) 返回 true |
| cmp | 如果左邊的字符串大于右邊的字符串返回 1，如果相等返回 0吗铐，如果左邊的字符串小于右邊的字符串返回 -1 | ($a cmp $b) 返回 -1 |
| gt | 檢查左邊的字符串是否大于右邊的字符串东亦，如果是返回 true，否則返回 false | ($a gt $b) 返回 false |
| lt | 檢查左邊的字符串是否小于右邊的字符串唬渗，如果是返回 true典阵，否則返回 false | ($a lt $b) 返回 true |
| ge | 檢查左邊的字符串是否大于或等于右邊的字符串奋渔，如果是返回 true，否則返回 false | ($a ge $b) 返回 false |
| le | 檢查左邊的字符串是否小于或等于右邊的字符串壮啊，如果是返回 true嫉鲸，否則返回 false | ($a le $b) 返回 true |
程序示例:
$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
數值判斷
設置變量 $a = 10， $b = 20
| 運算符 | 描述 | 實例 |
|---|---|---|
| == | 檢查兩個操作數的值是否相等歹啼，如果相等則條件為 true充坑，否則為 false | ($a == $b) 為 false |
| != | 檢查兩個操作數的值是否相等，如果不相等則條件為 true染突，否則為 false | ($a != $b) 為 true |
| <=> | 檢查兩個操作數的值是否相等, 如果左邊的數小于右邊的數返回 -1，如果相等返回 0, 如果左邊的數大于右邊的數返回 1 | ($a <=> $b) 返回 -1 |
| > | 檢查左操作數的值是否大于右操作數的值辈灼，如果是則條件為 true份企，否則為 false | ($a > $b) 返回 false |
| < | 檢查左操作數的值是否小于右操作數的值，如果是則條件為 true巡莹，否則返回 false | ($a < $b) 返回 true |
| >= | 檢查左操作數的值是否大于或等于右操作數的值司志，如果是則條件為 true，否則返回 false | ($a >= $b) 返回 false |
| <= | 檢查左操作數的值是否小于或等于右操作數的值降宅，如果是則條件為 true骂远，否則返回 false | ($a <= $b) 返回 true |
程序示例:
$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
如果用錯會發(fā)生什么？
直接上測試數據:
$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
由測試結果可知:
-
==, !=數字型比較運算符對所有字符類型的判斷均為真腰根，而eq, ne字符型比較運算符對所有比較內容均當做字符按字典序進行比較激才，如果用錯將導致嚴重錯誤，且不易察覺 - 布爾表達式的結果中判斷為真時實際返回值為"1"额嘿， 而結果為假是返回值為""瘸恼，其長度為零，并不是0, "0" 或false册养，這與其他主流語言是有很大不同的
- 實際上perl語言中并沒有布爾數據類型东帅，而是標量、數組球拦、哈希三種標準數據類型靠闭，需要特別注意
總結
在perl的條件語句中使用比較運算符時需要區(qū)分比較內容是數字型還是字符型，選擇正確的比較運算符
錯誤樣例代碼
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";
