16、Perl 条件语句与循环语句的深入解析

Perl 条件语句与循环语句的深入解析

1. 从文件读取输入

在之前的学习中，我们经常使用 <STDIN> 从键盘读取输入，并且了解了在标量上下文（逐行读取）和列表上下文（读取到文件末尾）中使用标准输入文件句柄的区别。然而，当输入内容较多时，从键盘输入会变得十分繁琐。例如，之前编写的统计脚本，输入多个数字不仅耗时，而且每次想要添加数据都得重新输入所有内容。

为了解决这个问题，我们可以将数据存储在单独的文件中，在脚本执行时读取这些文件。在 Perl 中，有两种实现方式：
- 一种是在脚本中打开并读取特定命名的文件，但这部分内容暂不详细展开。
- 另一种更快捷简单的方式是利用 Perl 命令行，使用空尖括号 <> 输入操作符。 <> 实际上会将命令行指定的所有文件名对应的文件打开、连接在一起，然后将它们当作一个文件来读取。

技术上，Perl 从一个特殊数组 @ARGV 中获取要打开和读取的文件名，该数组包含命令行指定的文件名或其他值。目前，我们假设 @ARGV 包含命令行的文件名， <> 操作符基于此工作。

以下是一个逐行读取命令行指定输入文件并打印每行内容的示例：

while (defined($in = <>)) {
    print "$in";
}

假设将上述脚本保存为