
- Perl 基础
- Perl - 首页
- Perl - 简介
- Perl - 环境
- Perl - 语法概述
- Perl - 数据类型
- Perl - 变量
- Perl - 标量
- Perl - 数组
- Perl - 哈希
- Perl - IF...ELSE
- Perl - 循环
- Perl - 运算符
- Perl - 日期和时间
- Perl - 子程序
- Perl - 引用
- Perl - 格式
- Perl - 文件 I/O
- Perl - 目录
- Perl - 错误处理
- Perl - 特殊变量
- Perl - 编码规范
- Perl - 正则表达式
- Perl - 发送电子邮件
- Perl 高级
- Perl - 套接字编程
- Perl - 面向对象
- Perl - 数据库访问
- Perl - CGI 编程
- Perl - 包和模块
- Perl - 进程管理
- Perl - 嵌入式文档
- Perl - 函数引用
- Perl 有用资源
- Perl - 问答
- Perl - 快速指南
- Perl - 有用资源
- Perl - 讨论
Perl 赋值运算符示例
假设变量 $a 保存 10,变量 $b 保存 20,那么以下是 Perl 中可用的赋值运算符及其用法:
序号 | 运算符 & 描述 |
---|---|
1 | = 简单赋值运算符,将右侧操作数的值赋给左侧操作数 示例 − $c = $a + $b 将 $a + $b 的值赋给 $c |
2 | += 加法并赋值运算符,将右侧操作数加到左侧操作数上,并将结果赋给左侧操作数 示例 − $c += $a 等价于 $c = $c + $a |
3 | -= 减法并赋值运算符,将右侧操作数从左侧操作数中减去,并将结果赋给左侧操作数 示例 − $c -= $a 等价于 $c = $c - $a |
4 | *= 乘法并赋值运算符,将右侧操作数乘以左侧操作数,并将结果赋给左侧操作数 示例 − $c *= $a 等价于 $c = $c * $a |
5 | /= 除法并赋值运算符,将左侧操作数除以右侧操作数,并将结果赋给左侧操作数 示例 − $c /= $a 等价于 $c = $c / $a |
6 | %= 取模并赋值运算符,对两个操作数进行取模运算,并将结果赋给左侧操作数 示例 − $c %= $a 等价于 $c = $c % a |
7 | **= 指数并赋值运算符,对操作数进行指数(幂)运算,并将结果赋给左侧操作数 示例 − $c **= $a 等价于 $c = $c ** $a |
示例
尝试以下示例以了解 Perl 中所有可用的赋值运算符。将以下 Perl 程序复制并粘贴到 test.pl 文件中,并执行此程序。
#!/usr/local/bin/perl $a = 10; $b = 20; print "Value of \$a = $a and value of \$b = $b\n"; $c = $a + $b; print "After assignment value of \$c = $c\n"; $c += $a; print "Value of \$c = $c after statement \$c += \$a\n"; $c -= $a; print "Value of \$c = $c after statement \$c -= \$a\n"; $c *= $a; print "Value of \$c = $c after statement \$c *= \$a\n"; $c /= $a; print "Value of \$c = $c after statement \$c /= \$a\n"; $c %= $a; print "Value of \$c = $c after statement \$c %= \$a\n"; $c = 2; $a = 4; print "Value of \$a = $a and value of \$c = $c\n"; $c **= $a; print "Value of \$c = $c after statement \$c **= \$a\n";
执行以上代码时,会产生以下结果:
Value of $a = 10 and value of $b = 20 After assignment value of $c = 30 Value of $c = 40 after statement $c += $a Value of $c = 30 after statement $c -= $a Value of $c = 300 after statement $c *= $a Value of $c = 30 after statement $c /= $a Value of $c = 0 after statement $c %= $a Value of $a = 4 and value of $c = 2 Value of $c = 16 after statement $c **= $a
perl_operators.htm
广告