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

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

$perl script.pl What is the exchange rate? 90.45 [Cursor stays here] $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";

#/user/bin/perl
使用警告；严格使用；
打印“汇率是多少？”；
我的@exchangeRate=；
chomp（@exchangeRate）；
打印“要转换的值是多少？”；
chomp（my@otherCurrency=）；
我的@result=@otherCurrency/@exchangeRate；
打印“结果为@{result}.\n”；

在研究我的问题时，我注意到一个潜在的解决方案是，我可以包括使用IO:：Handle；冲洗标准液；冲洗冲洗液；在我的剧本里。不过，这些线路并没有解决我的问题

use IO::Handle;

---

我该怎么做才能让STDIN正常工作？如果这是正常行为，我缺少什么？

您可以尝试启用自动刷新

或者

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

或

这就是为什么您没有看到打印的输出

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

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

$val=；
chomp（$val）；

当您这样做时

my @answer = <STDIN>;

---

…Perl等待换行，然后将您输入的字符串放入

$answer

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

my @exchangeRate = <STDIN>;

my@exchangeRate=；

我应该使用：

my $exchangeRate = <STDIN>;

my$exchangeRate=；

---

使用$而不是@.

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

---

然而，您可能只需要一行输入，所以您应该像其他人提到的那样使用标量。学习Perl将引导您了解这类内容。

在UNIX和类似UNIX的系统上，行尾字符是换行符，而不是回车符。谢谢！在我发表文章之后，我意识到我没有使用标量感谢您指出如何将STDIN与数组一起使用！

my $answer = <STDIN>;

my @exchangeRate = <STDIN>;

my $exchangeRate = <STDIN>;