为什么STDIN导致我的Perl程序冻结?
发布时间:2020-12-15 21:51:40 所属栏目:大数据 来源:网络整理
导读:我正在学习Perl,并使用STDIN编写了这个脚本来练习.当我运行脚本时,它只显示控制台上的第一个print语句.无论我输入什么,包括新行,控制台都不会显示下一个打印语句. (我在 Windows机器上使用ActivePerl.)它看起来像这样: $perl script.pl What is the exchang
我正在学习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. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |