Perl   发布时间:2022-04-07  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了为什么STDIN导致我的Perl程序冻结?大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在学习Perl,并使用STDIN编写了这个脚本来练习.当我运行脚本时,它只显示控制台上的第一个print语句.无论我输入什么,包括新行,控制台都不会显示下一个打印语句. (我在 Windows机器上使用ActivePerl.)它看起来像这样
$perl script.pl
@H_944_3@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正常运行?如果这是正常行为,我错过了什么?

解决方法

当你这样做 @H_291_2@my @answer = <STDIN>;

… Perl等待EOF字符(在Unix和Unix上,就像它的Ctrl-D一样).然后,您输入的每一行(由换行符分隔)进入列表.

如果您改为:

@H_291_2@my $answer = <STDIN>;

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

大佬总结

以上是大佬教程为你收集整理的为什么STDIN导致我的Perl程序冻结?全部内容,希望文章能够帮你解决为什么STDIN导致我的Perl程序冻结?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。