为什么STDIN导致我的Perl程序冻结？

Question

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

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

这是我的脚本:

#!/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.

Answer 2

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

my @exchangeRate = <STDIN>;

我应该用过:

my $exchangeRate = <STDIN>;

用$而不是@.