在 Perl 中使用 STDIN 进行输入

对于 Perl 程序员来说，使用 STDIN 进行输入是一个基本的技能。标准输入流（STDIN）是一个程序从控制台（或类似设备）中读取数据的通道。可以在 Perl 中使用 STDIN 进行如下操作：

从用户输入读取数据

要从用户输入读取数据，可以使用 Perl 的 <> 运算符。这个运算符会读取 STDIN 中的所有行。如果没有输入，则会等待用户输入。

#!/usr/bin/perl

while(<>) {
    chomp;
    print "You entered: $_\n";
}

上面的代码会读取 STDIN 中的每一行，并将其打印到屏幕上。

使用流操作符

Perl 还提供了一些流操作符，可用于从 STDIN 读取数据。这些操作符包括 get, getline, read 和 getc。

get

get 函数会从 STDIN 中读取一个字符。如果 STDIN 中没有数据，则会等待用户输入。

#!/usr/bin/perl

print "Enter a character: ";
chomp(my $char = get);
print "You entered: $char\n";

上面的代码会从 STDIN 中读取一个字符，并将其打印到屏幕上。

getline

getline 函数会从 STDIN 中读取一行。如果 STDIN 中没有数据，则会等待用户输入。

#!/usr/bin/perl

print "Enter a line: ";
chomp(my $line = getline);
print "You entered: $line\n";

上面的代码会从 STDIN 中读取一行，并将其打印到屏幕上。

read

read 函数可以读取 STDIN 中指定数量的字符。

#!/usr/bin/perl

print "Enter 5 characters: ";
my $input;
read(STDIN, $input, 5);
print "You entered: $input\n";

上面的代码会读取 STDIN 中的前 5 个字符，并将其打印到屏幕上。

getc

getc 函数会从 STDIN 中读取一个字符。如果 STDIN 中没有数据，则会等待用户输入。

#!/usr/bin/perl

print "Enter a character: ";
chomp(my $char = getc);
print "You entered: $char\n";

上面的代码会从 STDIN 中读取一个字符，并将其打印到屏幕上。

以上就是在 Perl 中使用 STDIN 进行输入的相关内容。通过 STDIN，您可以从用户输入读取数据，并在程序中进行处理。