Perl 字符串相等运算符示例

以下是股权运营商名单。假设变量 $a 包含“abc”，变量 $b 包含“xyz”，那么让我们检查以下字符串相等运算符 -

先生。 运算符及描述
1

其

如果左侧参数按字符串方式小于右侧参数，则返回 true。

示例- ($a lt $b) 为真。
2

GT

如果左侧参数按字符串方式大于右侧参数，则返回 true。

示例- ($a gt $b) 为假。
3

乐

如果左侧参数按字符串方式小于或等于右侧参数，则返回 true。

示例- ($a le $b) 为真。
4

葛

如果左侧参数按字符串方式大于或等于右侧参数，则返回 true。

示例- ($a ge $b) 为假。
5

情商

如果左侧参数按字符串方式等于右侧参数，则返回 true。

示例- ($a eq $b) 为假。
6

讷

如果左侧参数按字符串方式不等于右侧参数，则返回 true。

示例- ($a ne $b) 为真。
7

CMP

返回 -1、0 或 1，具体取决于左侧参数按字符串方式小于、等于还是大于右侧参数。

示例- ($a cmp $b) 为 -1。

例子

尝试以下示例来了解 Perl 中可用的所有字符串相等运算符。将以下 Perl 程序复制并粘贴到 test.pl 文件中并执行该程序。

现场演示 
#!/usr/local/bin/perl
 
$a = "abc";
$b = "xyz";

print "Value of \$a = $a and value of \$b = $b\n";

if( $a lt $b ) {
   print "$a lt \$b is true\n";
} else {
   print "\$a lt \$b is not true\n";
}

if( $a gt $b ) {
   print "\$a gt \$b is true\n";
} else {
   print "\$a gt \$b is not true\n";
}

if( $a le $b ) {
   print "\$a le \$b is true\n";
} else {
   print "\$a le \$b is not true\n";
}

if( $a ge $b ) {
   print "\$a ge \$b is true\n";
} else {
   print "\$a ge \$b is not true\n";
}

if( $a ne $b ) {
   print "\$a ne \$b is true\n";
} else {
   print "\$a ne \$b is not true\n";
}

$c = $a cmp $b;
print "\$a cmp \$b returns $c\n";

执行上述代码时，会产生以下结果 -

Value of $a = abc and value of $b = xyz
abc lt $b is true
$a gt $b is not true
$a le $b is true
$a ge $b is not true
$a ne $b is true
$a cmp $b returns -1
perl_operators.htm