<Perl语言入门>读书笔记 | 二. 标量数据

所谓直接量，其实就是常量。

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

参考文献

1. Perl语言入门 第六版中文清晰PDF

---