perl - 为什么 STDIN 会导致我的 Perl 程序卡住？

Question

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

$perl script.pl
What is the exchange rate? 90.45
[Cursor stays here]

This is my script:

#!/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";

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

use IO::Handle;

和

flush STDIN; flush STDOUT;

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

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

Answer 1

当你这样做时

my @answer = <STDIN>;

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

如果您这样做:

my $answer = <STDIN>;

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