Perl 教程 之 Perl 运算符 3

Perl 运算符

比较运算符

以下表格实例中设置变量 $a 为 "abc" ， $b 为 "xyz" ，然后使用比较运算符来计算结果。

运算符 描述 实例
lt 检查左边的字符串是否小于右边的字符串，如果是返回 true，否则返回 false。 ($a lt $b) 返回 true。
gt 检查左边的字符串是否大于右边的字符串，如果是返回 true，否则返回 false。 ($a gt $b) 返回 false。
le 检查左边的字符串是否小于或等于右边的字符串，如果是返回 true，否则返回 false。 ($a le $b) 返回 true
ge 检查左边的字符串是否大于或等于右边的字符串，如果是返回 true，否则返回 false。 ($a ge $b) 返回 false。
eq 检查左边的字符串是否等于右边的字符串，如果是返回 true，否则返回 false。 ($a eq $b) 返回 false。
ne 检查左边的字符串是否不等于右边的字符串，如果是返回 true，否则返回 false。 ($a ne $b) 返回 true
cmp 如果左边的字符串大于右边的字符串返回 1，如果相等返回 0，如果左边的字符串小于右边的字符串返回 -1。 ($a cmp $b) 返回 -1。

实例

!/usr/bin/perl

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

print "\$a = $a ，\$b = $b\n";

if( $a lt $b ){
print "$a lt \$b 返回 true\n";
}else{
print "\$a lt \$b 返回 false\n";
}

if( $a gt $b ){
print "\$a gt \$b 返回 true\n";
}else{
print "\$a gt \$b 返回 false\n";
}

if( $a le $b ){
print "\$a le \$b 返回 true\n";
}else{
print "\$a le \$b 返回 false\n";
}

if( $a ge $b ){
print "\$a ge \$b 返回 true\n";
}else{
print "\$a ge \$b 返回 false\n";
}

if( $a ne $b ){
print "\$a ne \$b 返回 true\n";
}else{
print "\$a ne \$b 返回 false\n";
}

$c = $a cmp $b;
print "\$a cmp \$b 返回 $c\n";

以上程序执行输出结果为：

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