Perl语言入门（第8版）

标量数据

｜

49

获取用户输入

此刻你大概已经相当好奇，如何让

Perl

程序读取从键盘输入的值。最简单的方式就是

使用行输入操作符

<STDIN>

。

这里的

<STDIN>

实际上是对应于文件句柄

STDIN

的行输入操作符。关于文件句

柄的内容，我们会在第

5

章介绍。

每次代码运行到出现

<STDIN>

的时候，

Perl

就会从标准输入设备读取完整的一行标量

值，也就是第一个换行符前所有的内容，这个内容就成为

<STDIN>

位置上的值。标准

输入可以有多种输入源，默认是来自键盘的用户输入，也就是运行程序的人提供的信

息。如果

<STDIN>

没有可读取的内容，

Perl

程序就会停下来等待用户输入，直到看到

换行符（也就是按下回车键）为止。

从

<STDIN>

读取的字符串是包含末尾的换行符的。所以我们可以利用这点，判断输入

的是否为空行：

$line = <STDIN>;

if ($line eq "\n") {

print "That was just a blank line!\n";

} else {

print "That line of input was: $line";

}

实际应用时，我们往往不想保留末尾的那个换行符，需要用

chomp()

操作符将其去

掉。

chomp

操作符

刚了解

chomp()

操作符时，大家都会奇怪为什么要设计这样一个用途专一的操作符，

因为它能做的事情相当有限，也就是去掉字符串末尾的换行符，如果没有，就啥都不

干。看例子：

$text = "a line