当前位置:K88软件开发文章中心编程语言PerlPerl01 → 文章内容

Perl 运算符

减小字体 增大字体 作者:佚名  来源:网上搜集  发布时间:2019-1-11 13:10:42

Perl 运算符运算符是一种告诉编译器执行特定的数学或逻辑操作的符号,如:





3+2=5。Perl 语言内置了丰富的运算符,我们来看下常用的几种:算术运算符比较运算符逻辑运算符赋值运算符位运算符引号运算符其他运算符运算符优先级算术运算符表格实例中我们设置变量 $a 为 10, $b 为 20。运算符描述实例+加法运算 $a + $b 结果为 30-减法运算$a - $b 结果为 -10*乘法运算$a * $b 结果为 200/除法运算$b / $a 结果为 2%求余运算,整除后的余数$b % $a 结果为 0**乘幂$a**$b 结果为 10 的 20 次方实例





#!/usr/bin/perl$a = 10;$b = 20;print "\$a = $a , \$b = $b\n";$c = $a + $b;print '$a + $b = ' . $c . "\n";$c = $a - $b;print '$a - $b = ' . $c . "\n";$c = $a * $b;print '$a * $b = ' . $c . "\n";$c = $a / $b;print '$a / $b = ' . $c . "\n";$c = $a % $b;print '$a % $b = ' . $c. "\n";$a = 2;$b = 4;$c = $a ** $b;print '$a ** $b = ' . $c . "\n";以上程序执行输出结果为:$a = 10 , $b = 20$a + $b = 30$a - $b = -10$a * $b = 200$a / $b = 0.5$a % $b = 10$a ** $b = 16比较运算符表格实例中我们设置变量 $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。实例





#!/usr/bin/perl$a = 10;$b = 20;print "\$a = $a , \$b = $b\n";if( $a == $b ){print "$a == \$b 结果 true\n";}else{print "\$a == \$b 结果 false\n";}if( $a != $b ){print "\$a != \$b 结果 true\n";}else{print "\$a != \$b 结果 false\n";}$c = $a <=> $b;print "\$a <=> \$b 返回 $c\n";if( $a > $b ){print "\$a > \$b 结果 true\n";}else{print "\$a > \$b 结果 false\n";}if( $a >= $b ){print "\$a >= \$b 结果 true\n";}else{print "\$a >= \$b 结果 false\n";}if( $a < $b ){print "\$a < \$b 结果 true\n";}else{print "\$a < \$b 结果 false\n";}if( $a <= $b ){print "\$a <= \$b 结果 true\n";}else{print "\$a <= \$b 结果 false\n";}以上程序执行输出结果为:$a = 10 , $b = 20$a == $b 结果 false$a != $b 结果 true$a <=> $b 返回 -1$a > $b 结果 false$a >= $b 结果 false$a < $b 结果 true$a <= $b 结果 true以下表格实例中设置变量 $a 为 "abc" , $b 为 "xyz" ,然后使用比较运算符来计算结果。运算符描述实例lt检查左边的字符串是否小于右边的字符串,如果是返回 true,否则返回 false。 ($a lt $b) 返回 true。 gt检查左边的字符串是否大于右边的字符串,如果是返回 true,否则返回 false。 ($a gt $b) 返回 false。 le检查左边的字符串是否小于或等于右边的字符串,如果是返回 true,否则返回 false。 ($a le $b) 返回 truege检查左边的字符串是否大于或等于右边的字符串,如果是返回 true,否则返回 false。($a ge $b) 返回 false。eq检查左边的字符串是否等于右边的字符串,如果是返回 true,否则返回 false。($a eq $b) 返回 false。ne检查左边的字符串是否不等于右边的字符串,如果是返回 true,否则返回 false。 ($a ne $b) 返回 truecmp如果左边的字符串大于右边的字符串返回 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 = xyzabc lt $b 返回 true$a gt $b 返回 false$a le $b 返回 true$a ge $b 返回 false$a ne $b 返回 true$a cmp $b 返回 -1赋值运算符表格实例中我们设置变量 $a 为 10, $b 为 20。运算符描述实例=简单的赋值运算符,把右边操作数的值赋给左边操作数 $c = $a + $b 将把 $a + $b 的值赋给 $c+=加且赋值运算符,把右边操作数加上左边操作数的结果赋值给左边操作数 $c += $a 相等于 $c = $c + $a-= 减且赋值运算符,把左边操作数减去右边操作数的结果赋值给左边操作数 $c -= $a 相等于 $c = $c - $a*=乘且赋值运算符,把右边操作数乘以左边操作数的结果赋值给左边操作数 $c *= $a 相等于 $c = $c * $a/= 除且赋值运算符,把左边操作数除以右边操作数的结果赋值给左边操作数 $c /= $a 相等于 $c = $c / $a%= 求模且赋值运算符,求两个操作数的模赋值给左边操作数 $c %= $a 相等于 $c = $c % a**=乘幂且赋值运算符,求两个操作数的乘幂赋值给左边操作数 $c **= $a 相等于 $c = $c ** $a实例





#!/usr/bin/perl$a = 10;$b = 20;print "\$a = $a ,\$b = $b\n";$c = $a + $b;print "赋值后 \$c = $c\n";$c += $a;print "\$c = $c ,运算语句 \$c += \$a\n";$c -= $a;print "\$c = $c ,运算语句 \$c -= \$a\n";$c *= $a;print "\$c = $c ,运算语句 \$c *= \$a\n";$c /= $a;print "\$c = $c ,运算语句 \$c /= \$a\n";$c %= $a;print "\$c = $c ,运算语句 \$c %= \$a\n";$c = 2;$a = 4;print "\$a = $a , \$c = $c\n";$c **= $a;print "\$c = $c ,运算语句

[1] [2]  下一页


Perl 运算符