7

我正在学习 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::句柄；
和
冲洗标准输入；刷新标准输出；
在我的脚本中。不过，这些行并没有解决我的问题。

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

4

4 回答 4

18

当你这样做

my @answer = <STDIN>;

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

如果您改为：

my $answer = <STDIN>;

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

于 2010-10-12T20:26:53.310 回答
5

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

my @exchangeRate = <STDIN>;

我应该使用：

my $exchangeRate = <STDIN>;

用 $ 而不是 @。

于 2010-10-12T20:33:12.997 回答
4

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

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

于 2010-10-12T23:59:13.160 回答
-3

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

任何一个

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

或者

$| = 1;

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

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

$val = <STDIN>;
chomp($val);
于 2010-10-12T20:24:08.573 回答