Perl STDIN用法

在Perl编程中, 我们可以使用<STDIN>从​​标准控制台获取输入。它代表标准输入。可以用<>缩写。所以,

my $name = <STDIN>;

等效于：

my $name = <>;

用户使用<STDIN>输入的Perl

让我们看一个示例, 其中我们使用标准输入<STDIN>从​​用户获取数据。

输入：

use 5.010;
use strict;
use warnings;
say "Enter your Name:";
my $name = <STDIN>;
say "Welcome $name at srcmini.";

在这里, $ name是一个标量变量。使用我的关键字声明变量。运行此脚本后, 它将要求你输入名称。在控制台中键入你的名称, 然后按Enter。

输出

Enter your Name:
John
Welcome John
  at srcmini.

如你在上面的输出中看到的, 在打印名称之后添加了新行。要解决此问题, 请使用$ name添加chomp函数, 如下所示。

use 5.010;
use strict;
use warnings;
say "Enter your Name:";
my $name = <STDIN>;
chomp $name;
print "Welcome $name at srcmini.\n";

输出

Enter your Name:
John
Welcome John at srcmini.