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

你的那条print后面没有换行符，呵呵。而且最后的2条语句有点问题。

 

 

2011-06-17

---

perl01

---

发件人： Matthew

发送时间： 2011-06-17  10:31:13

收件人： perlchina

抄送：

主题： [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 访问此网上论坛。