我正在学习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正常运行？如果这是正常行为,我错过了什么？
解决方法
当你这样做
my @answer = <STDIN>;
… Perl等待EOF字符(在Unix和Unix上,就像它的Ctrl-D一样).然后,您输入的每一行(由换行符分隔)进入列表.
如果您改为：
my $answer = <STDIN>;
… Perl等待换行,然后将您输入的字符串放入$answer.