Perl标准输入

Perl是一种流行的高级编程语言，提供了非常强大和灵活的输入和输出功能。其中一个常见的输入方式是通过标准输入读取数据。本文将介绍如何使用Perl标准输入。

什么是标准输入

标准输入是与终端相关的输入流。通常情况下，当从终端读取数据时，数据将从标准输入流中读取。例如，如果从终端运行Perl脚本并输入数据，则该数据将从标准输入中读取。

使用Perl标准输入

在Perl中，可以通过以下方式从标准输入流中读取数据：

$line = <STDIN>;

其中，<STDIN> 代表从标准输入读取一行数据。该行将存储在$line 变量中。

一个简单的例子：

print "Please enter your name:\n";
$name = <STDIN>;
chomp $name;
print "Hello $name!\n";

上述代码将提示用户输入他们的姓名，将其存储在$name变量中，并通过chomp函数删除字符串末尾的换行符。最后，代码将打印出对用户名的欢迎信息。

逐行读取

有时，需要从标准输入中逐行读取数据，而不是一次性读取整个输入流。可以使用while循环来实现此目的：

while ($line = <STDIN>) {
  # do something with $line 
}

注意，当读取到输入流的末尾时，<STDIN>会返回一个空值。因此，您可以使用以下方式检查是否已到达输入流的末尾：

while (my $line = <STDIN>) {
  last if not defined $line;
  # do something with $line
}

指定文件输入

除了从标准输入中读取数据外，还可以从指定的文件中读取数据。可以通过向<STDIN>附加文件句柄来实现此目的。例如，要从名为 input.txt 的文件中读取数据，可以使用以下代码：

open my $fh, '<', 'input.txt' or die "Could not open file: $!";
while (my $line = <$fh>) {
  print $line;
}

上述代码打开名为input.txt的文件，并使用while循环从中读取行数据。注意，open函数返回一个文件句柄，该句柄必须在读取完数据后被关闭。

结论

使用Perl标准输入读取数据非常简单。使用<STDIN>从标准输入中读取数据，使用while循环逐行读取数据，或使用文件句柄从指定的文件中读取数据。这种灵活性使得Perl成为一个非常强大的编程语言，适用于各种不同的输入和输出需求。