为啥 STDIN 会导致我的 Perl 程序冻结？

Posted 2023-02-16

【中文标题】为啥 STDIN 会导致我的 Perl 程序冻结？

【英文标题】：Why does STDIN cause my Perl program to freeze?为什么 STDIN 会导致我的 Perl 程序冻结？

【发布时间】：2010-10-12 20:21:49

【问题描述】：

我正在学习 Perl，并编写了这个脚本来练习使用 STDIN。当我运行脚本时，它只在控制台上显示第一个打印语句。无论我输入什么，包括新行，控制台都不会显示下一个打印语句。 （我在 Windows 机器上使用 ActivePerl。）它看起来像这样：

$perl script.pl
汇率是多少？ 90.45
[光标停留在这里]

这是我的脚本：

#!/user/bin/perl
use warnings; use strict;

print "What is the exchange rate? ";
my @exchangeRate = <STDIN>;
chomp(@exchangeRate);

print "What is the value you would like to convert? ";
chomp(my @otherCurrency = <STDIN>);

my @result = @otherCurrency / @exchangeRate;
print "The result is @result.\n";

我在研究我的问题时注意到的一个潜在解决方案是我可以包括

使用 IO::Handle;

和

flush STDIN;在我的脚本中刷新 STDOUT;

。不过，这些行并没有解决我的问题。

我应该怎么做才能让 STDIN 正常运行？如果这是正常行为，我错过了什么？

【参考方案1】：

当你这样做时

my @answer = <STDIN>;

...Perl 等待EOF 字符（在 Unix 和 Unix 上，它是 Ctrl-D）。然后，您输入的每一行（由换行符分隔）进入列表。

如果你这样做：

my $answer = <STDIN>;

...Perl 等待换行，然后将您输入的字符串放入$answer。

【讨论】：

在 UNIX 和类 UNIX 系统上，行尾字符是换行符，而不是回车符。

谢谢！发完帖子后，我意识到我没有使用标量。 >_

【参考方案2】：

我发现了我的问题。我使用了错误类型的变量。而不是写：

my @exchangeRate = <STDIN>;

我应该使用：

my $exchangeRate = <STDIN>;

用 $ 代替 @。

【参考方案3】：

要结束多行输入，您可以在 Unix 上使用 Control-D 或在 Windows 上使用 Control-Z。

但是，您可能只需要单行输入，因此您应该像其他人提到的那样使用标量。 Learning Perl 将引导您完成这类工作。

【参考方案4】：

您可以尝试启用自动刷新。

要么

use IO::Handle;
STDOUT->autoflush(1);

或

$| = 1;

这就是您没有看到打印输出的原因。

此外，您需要将数组“@”更改为标量变量“$”

$val = <STDIN>;
chomp($val);