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>;

使用$代替@。

Answer 3

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

但是，你可能只想要一行输入，所以你应该像其他人一样使用标量。 Learning Perl 将引导您完成此类工作。

Answer 4

您可以尝试启用autoflush。

无论

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

或

$| = 1;

这就是为什么你没有看到打印输出的原因。

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

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

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

4 个答案: