所谓直接量,其实就是常量。
1. 数字
在Perl内部所有的数字按double类型来存储,即Perl不存在int类型;
print 7.25e45; # 7.25乘以10的45次方
# print 7.25E45; # 错误
print 61_298_040_283_768; # 通过下划线使大数更清楚
print 0b11111111; # 二进制的11111111,等于十进制的255
print 0377; # 八进制的377,等于十进制的255
print 0xff; # 十六进制的FF,等于十进制的255
print 0x1377_0B77; # 十六进制的13770B77,等于十进制的326568823
print 10.5 % 3.2; # 取模操作符先取整再求余,这里等同于10%3
print 2**3; # 乘方操作,2的3次方
2. 字符串
单引号字符串: 只有在反斜线后面接续单引号或者反斜线时才表示转义。即只有以下这两种情况表示转义:
'\\' # 一个反斜线
'\'' # 一个单引号
双引号字符串: 要通过反斜线转义表示换行符(\n)之类的特殊字符的话,就该用双引号。
字符串操作符: Perl会根据需要,自动在数字和字符串之间进行类型转换。转换的依据完全取决于操作符。
print "hello"." "."world"."\n"; # 字符串连接操作符.
print "b" x (4+1)."\n"; # 注意这里是字母x,字符串重复操作符
print 5 x 4.8."\n"; # 左边的操作数会被转为字符串,右边的操作数会向下取整
hello world
bbbbb
5555
[Finished in 0.1s]
数字与字符串的转换: 对数字进行运算的操作符(比如乘法)如果遇到字符串类型的操作数,Perl会自动将字符串转换成等效的十进制浮点数进行运算。
#! perl -w
print "12" * "3"."\n";
print "12fred34" * "3"."\n"; # 非数学的部分会被略过
print "fred34" * "3"."\n"; # 被当成0
#! 后面的 -w 表示开启警告,可以使用 use diagnostics 得到更为详尽的警告描述。
Argument “12fred34” isn’t numeric in multiplication (*) at D:\workshop\perl_workspace\helloword.pl line 2.
Argument “fred34” isn’t numeric in multiplication (*) at D:\workshop\perl_workspace\helloword.pl line 3.
36
36
0
[Finished in 0.1s]
3. 变量
$ 开头表示变量,所以不管取什么名字都不会和Perl自带的关键字冲突。变量名区分大小写。
$what = "Okinawa steak";
print "vivi ate ${what}s.\n";
vivi ate Okinawa steaks.
[Finished in 0.1s]
4. 比较运算符
print 35 != 30+5; # False
print 35 == 35.0; # True
print '35' eq '35.0'; # False
print 'fred' lt 'barney'; # False
print 'fred' lt 'free'; # True
print 'fred' eq "fred"; # True
print 'fred' eq 'Fred'; # False
print ' ' gt ''; # True
为False 时,print 出的是空串。
1111[Finished in 0.1s]
5. 布尔类型
Perl没有专用的Boolean类型:
- 数字:0为假,其它数字为真;
- 字符串:空串(”)为假,其它字符串为真;因为字符串 ‘0’ 跟数字0一样,所以也为假;
- 非数学非字符串,那就先转换成数学或字符串再判断。
6. 标准输入
<STDIN> <script id="MathJax-Element-1" type="math/tex"> </script>用于从标准输入读取一行文本(直到换行符出现为止)。返回的字符串在末尾会带有换行符,通过chomp()操作符可以去除。如果末尾有两个以上的换行符,也只删除一个。
$line = <STDIN>; # chomp($line=<STDIN>)可以去除末尾的换行符
if($line eq "\n"){
print "That was just a blank line!\n";
}else{
print "Input was: $line";
}
7. undef值
变量赋初值前,初始值就是undef值。undef作为数字时被视为0;作为字符串被视为空串。
defined函数可以判断undef值。如果是undef,该函数返回假,否则返回真。
当读到文件结尾时,就会返回undef值。
8. 课后习题
(1)
$r = 12.5;
$PI = 3.141592654;
print 2 * $PI * $r;
(2)
print "Please input the radius:\t";
chomp($r=<STDIN>);
$PI = 3.141592654;
print 2 * $PI * $r;
(3)
print "Please input the radius:\t";
chomp($r=<STDIN>);
$PI = 3.141592654;
if($r<0){
print 0
}else{
print 2 * $PI * $r;
}
(4)
print "Please input two numbers:\n";
chomp($a=<STDIN>);
chomp($b=<STDIN>);
print $a * $b
(5)
print "Please input a string and a number:\n";
$s=<STDIN>;
chomp($n=<STDIN>);
print $s x $n