Perl 数值等式运算符示例
这些也称为关系运算符。 假设变量 $a 持有 10 并且变量 $b 持有 20 然后，让我们检查以下数字相等运算符 −
| 序号 | 运算符 & 描述 |
|---|---|
| 1 | == (equal to) 检查两个操作数的值是否相等，如果是则条件为真。 示例 − ($a == $b) is not true. |
| 2 | != (not equal to) 检查两个操作数的值是否相等，如果值不相等，则条件为真。 示例 − ($a != $b) is true. |
| 3 | <=> 检查两个操作数的值是否相等，并根据左参数在数值上是否小于、等于或大于右参数返回 -1、0 或 1。 示例 − ($a <=> $b) returns -1. |
| 4 | > (greater than) 检查左操作数的值是否大于右操作数的值，如果是，则条件为真。 示例 − ($a > $b) is not true. |
| 5 | < (less than) 检查左操作数的值是否小于右操作数的值，如果是则条件为真。 示例 − ($a < $b) is true. |
| 6 | >= (greater than or equal to) 检查左操作数的值是否大于或等于右操作数的值，如果是则条件为真。 示例 − ($a >= $b) is not true. |
| 7 | <= (less than or equal to) 检查左操作数的值是否小于或等于右操作数的值，如果是则条件为真。 示例 − ($a <= $b) is true. |
示例
试试下面的例子来理解 Perl 中所有可用的数字相等运算符。 将以下 Perl 程序复制并粘贴到 test.pl 文件中并执行该程序。
#!/usr/local/bin/perl
$a = 21;
$b = 10;
print "Value of \$a = $a and value of \$b = $b\n";
if( $a == $b ) {
print "$a == \$b is true\n";
} else {
print "\$a == \$b is not true\n";
}
if( $a != $b ) {
print "\$a != \$b is true\n";
} else {
print "\$a != \$b is not true\n";
}
$c = $a <=> $b;
print "\$a <=> \$b returns $c\n";
if( $a > $b ) {
print "\$a > \$b is true\n";
} else {
print "\$a > \$b is not true\n";
}
if( $a >= $b ) {
print "\$a >= \$b is true\n";
} else {
print "\$a >= \$b is not true\n";
}
if( $a < $b ) {
print "\$a < \$b is true\n";
} else {
print "\$a < \$b is not true\n";
}
if( $a <= $b ) {
print "\$a <= \$b is true\n";
} else {
print "\$a <= \$b is not true\n";
}
当上面的代码被执行时，它会产生下面的结果 −
Value of $a = 21 and value of $b = 10 $a == $b is not true $a != $b is true $a <=> $b returns 1 $a > $b is true $a >= $b is true $a < $b is not true $a <= $b is not true
