Perl运算符类型 _运算符类型

本文概述

Perl逻辑运算符
Perl按位运算符
Perl特殊运算符
Perl比较运算符
Perl分配运算符

Perl运算符向其操作数提供值, 例如数字, 布尔值或字符串等。要选择合适的运算符, 你需要知道操作数的值。
我们将讨论以下类型的运算符：

数值运算符
字符串运算符
逻辑运算符
按位运算符
特殊运营商
比较运算符
赋值运算符

文章图片
Perl数值运算符
数值运算符是标准算术运算符, 例如加法(+), 减法(-), 乘法(*), 除法(/)和模(％)等。
Perl字符串运算符
字符串运算符是带有重复(=?和！?)和串联(。)的正则和负正则表达式。
字符串串联运算符

use 5.010; use strict; use warnings; my $result = "Hello this is " . "srcmini."; say $result;

输出

Hello this is srcmini.

字符串重复运算符

use 5.010; use strict; use warnings; my $result = "Thank You " x 3; say $result;

输出

Thank You Thank You Thank You.

在这里, 请注意, 在” x” 的右边, 它必须是整数。
‘ x’ 运算符的两边都应该有空格。
例如,

$result = "Thank You " x 3; # This is correct $result = "Thank You "x3; # This is incorrect

Perl逻辑运算符逻辑运算符为其操作数提供布尔值。它们是(& & , ||和)。
& & -> 在& & 运算符中, 如果$ a为0, 则$ a & & $ b的值必须为false, 而与$ b的值无关。因此, perl无需检查$ b的值。这称为短路评估。
|| -> 在||中运算符, 如果$ a为非零值, 则$ a & & $ b的值必须为true, 而与$ b的值无关。因此, perl无需检查$ b的值。
例：

use 5.010; use strict; use warnings; $a = 0; $b = 12; my $result1 = $a & & $b; say $result1; $a = 12; $b = 14; my $result2 = $a || $b; say $result2;

输出

0 12

Perl按位运算符按位运算符在位级别上数字地处理其操作数。这些是(< < , > > , ＆, |, ^, < < =, > > =, ＆=, | =, ^ =)。
每个数字将以0和1表示。最初, 整数将转换为二进制位, 并对结果进行评估。最终结果将以整数形式显示。
例：

use 5.010; use strict; use warnings; #OR operator my $result1 = 124.3 | 99; say $result1; #AND operator my $result2 = 124.3 & 99; say $result2; #XOR operator my $result3 = 124.3 ^ 99; say $result3; #Shift operator my $result4 = 124 > > 3; say $result4;

输出

127 96 31 15

Perl特殊运算符自动增量(++)运算符是一种特殊的运算符, 它将数字字符本身加1。
例：

use 5.010; use strict; use warnings; my $num = 9; my $str = 'x'; $num++; $str++; say $num++; say $str++;

输出

10 Y

Perl比较运算符 【Perl运算符类型】比较运算符比较其操作数的值。这些是(==, < , < =, > , > =, < => , ！=)。
例：

use 5.010; use strict; use warnings; say "Enter your salary:"; my $salary = < > ; if($salary > = 20000) { say "You are earning well"; } else { say "You are not earning well"; }

输出

Enter your salary: 15000 You are not earning well

Perl分配运算符赋值运算符为变量分配一个值。
这些是(=, + =, -=, * =, / =, | =, ＆=, ％=)
例：

use 5.010; use strict; use warnings; $a = 20; my $result1 = $a += $a; say $result1; my $result2 = $a -= 10; say $result2; my $result3 = $a |= 10; say $result3; my $result4 = $a & = 10; say $result4;

输出