STDIN问题

pony2001mx

大家好：
我的脚本中有STDIN，但它影响perl命令行用>输出。具体如下，我的脚本名是calculation.pl

1. #!/usr/bin/perl
   
2. 
   
3. print "use dilution factor?[y/n] ";
   
4. $answer = <STDIN>;
   
5. chomp $answer;
   
6. if ($answer eq 'y'){$dil_fac = 10}
   
7. elsif ($answer eq 'n'){$dil_fac = 1}
   
8. else {print STDERR "use dilution factor? please notify by typing y or n"; exit}
   
9. 
   
10. ... 脚本内容 ...
    

复制代码

但是，当我运行 perl calculation.pl > output 时， 处于停滞状态，如何解决？  谢谢指点！！

zhlong8

它在等你输入 y 或 n 加回车吧，不输入任何东西它就阻塞在第4行了

tadegenban

你的 "use dilution factor?[y/n] " 输出到output文件了
你可以试试这样  perl calculation.pl 2> output