已经解决.结贴 脚本 Perl 这里是列表上下文吗?

sunzhiguolu

#!/usr/bin/perl
use strict;
use warnings;

#my $sum = &Sum_Of(<STDIN>); #在确保不与系统函数重名的情况下,请使用下面的代码
my $sum = Sum_Of(<STDIN>); #修正部分,去掉子程序前面的 "&" 符号

print "Sum of those numbers is $sum .";

sub Sum_Of{
   my $sum = 0;
   foreach(@_)
   {
      $sum += $_;
   }
   $sum; # <= 修正部分,后添加代码
}

本人菜鸟一个,如果所提问题非常愚蠢可笑,还请多多见谅.
我一共有两个问题希望大神们给予指点:
1.> 上面代码中 <STDIN> 操作符是根据下面的红色部分 foreach 那条语句来判断这个输入是一个列表上下文吗?
2.> 我需要在子程序 "Sum_Of" 内部,进行求和之前进行 "chomp" 操作吗?

MMMIX

sunzhiguolu 发表于 2015-09-11 09:56
my $sum = &Sum_Of(<STDIN>);

除非你想忽略 Sum_Of 的 prototype，否则调用函数的时候就不要再加 & 了。

上面代码中 <STDIN> 操作符是根据下面的红色部分 foreach 那条语句来判断这个输入是一个列表上下文吗?

不是。原因是它是 subroutine 的参数。

需要在子程序 "Sum_Of" 内部,进行求和之前进行 "chomp" 操作吗?

不需要。

另外，函数 Sum_Of 本身有个错误：没有返回值。

MMMIX

回复 1# sunzhiguolu


    另外，你这学习用的资料是有多老？现在还用 &Sum_Of(...) 这种方式调用函数？

sunzhiguolu

回复 3# MMMIX
多谢大神指点,小弟还想请教大神一个问题:

另外，你这学习用的资料是有多老？现在还用 &Sum_Of(...) 这种方式调用函数？

调用 &Sum_Of 函数, 正确的调用方法是咋写的?
例如:

1. my $sum = Sum_Of(1..5);

复制代码

使用以上这种格式? 小弟愚蠢请大神指点...
   

MMMIX

回复 4# sunzhiguolu


    直接用 Sum_Of(...) 这种方式。

sunzhiguolu

回复 2# MMMIX

除非你想忽略 Sum_Of 的 prototype，否则调用函数的时候就不要再加 & 了。

在看书的时候书中提到了关于调用子函数不添加 "&" 符号的几种场景:
1.> 在调用子程序前,已经声明子程序;
2.> 调用子程序时向子程序传递一个参数;
3.> 确保子程序不与系统默认函数重名;

小弟不知理解的对否, 所以使用了看似比较笨的方法. 还请大神指点...

   

MMMIX

sunzhiguolu 发表于 2015-09-11 10:57
回复 2# MMMIX

在看书的时候书中提到了关于调用子函数不添加 "&" 符号的几种场景:

1.> 在调用子程序前,已经声明子程序;

即使没有提前声明，调用时也不需要 &.

2.> 调用子程序时向子程序传递一个参数;

没有参数的情况下用 sub_name();

3.> 确保子程序不与系统默认函数重名;

这种情况还是把你自己的函数名字改了吧。

sunzhiguolu

回复 7# MMMIX
终于搞懂了... 多谢多谢...
帖子中的错误已经改了过来...