回复： [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

my god!
我错了，太蠢了，帖子发出之后，自己又看了一遍，是我自己看花眼了，视线飘逸到上一个print语句啦！
对不起打扰了！下次发帖一定自己好好检查。
想撞墙！
-----原信息-----
发件人： Matthew
发送： 2011/06/17, 10:30
收件人： perlchina@googlegroups.com
主题： [PerlChina] 初学者请求解惑！为什么我print语句中的换行符不起作用了？

我的系统环境是WIN7，之前我采用的是ActivePerl，自从我买的小骆驼书到手之后，照着学习都挺顺利的。
昨天夜里查资料的时候看到说在Win32环境下用Strawberry Perl比较好，好吧，我就卸载了 ActivePer，换了 Strawberry
Perl。可是刚刚用到print语句的时候发现换行符不起作用了。
郁闷中！难道是Perl版本的差异吗？不至于吧
下面请帮我看看我写的代码，看是代码的问题还是版本问题，劳烦诸位了！
code：
-----------------------------------------------------------
#!/usr/bin/perl -w
use 5.010;
sub total{
my $sum = 0;
foreach my $numbers(@_){
$sum += $numbers;
}
$sum;
}
my @fred = qw{1 3 5 7 9};
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n\n";
print "Enter some numbers on separate lines: ";
my $user_total = total(<STDIN>);
print "The total of those numbers is $user_total.\n";
-----------------------------------------------------------
下边是输出：
-----------------------------------------------------------
D:\Desktop>perl test.pl
The total of @fred is 25.

Enter some numbers on separate lines:
-----------------------------------------------------------
如上所示，执行后光标停留在"Enter some numbers on separate lines:"后边，并没有换行。
目前虽然不影响结果，但是还有有些纠结，

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
To view this discussion on the web visit https://groups.google.com/d/msg/perlchina/-/TMKZDyVHIOoJ.
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。