Perl subroutine中参数列表的取值，很智能，还是多管闲事？

bequan

sub maxf{
    my ($ava, @str) = @_;
    print "The parameter is: @_. \n";
    print "After passed, the variable is: $ava.\n";
    print "the list is: @str.\n";
}

&maxf (qw\There are strings to be passed\);

输出：
The parameter is: There are strings to be passed.
After passed, the variable is: There.
the list is: are strings to be passed.

1. 为什么不让$ava为T(传递的列表的第一个字母)？
2. 为什么将截取后的列表赋值给@str，而不是将整个列表赋值给@str？
3. 这方面有什么明确的规定吗？

DQP

qw\There are strings to be passed\ 是一个列表 There 是它的第一个元素。。。 与智能没关系。

兰花仙子

1. 为什么不让$ava为T(传递的列表的第一个字母)？
2. 为什么将截取后的列表赋值给@str，而不是将整个列表赋值给@str？
3. 这方面有什么明确的规定吗？

1. 因为你传的参数是一个list，T不是list的第一个元素。
2. 这是基本的list赋值操作，@_的第一个元素赋值给$avr，剩余的元素赋值给@str，左边和右边都是list，位于list上下文里。
3. perl就是这样设计的啦~ 读Learning Perl，不明白再读programming Perl，再不明白asking here，最后去问larry wall.

Perl_Er

ZAROK

如果你想要$ava值为T，这样应该就是了：

1. 
   
2. sub maxf{
   
3.     my ($tmp, @str) = @_;
   
4.     my $ava = substr($tmp, 0, 1);
   
5.     unshift @str, substr($tmp, 1);
   
6.     print "The parameter is: @_. \n";
   
7.     print "After passed, the variable is: $ava.\n";
   
8.     print "the list is: @str.\n";
   
9. }
   

复制代码

gaochong

仙子姐姐，看完learning perl后，是看intermediate perl 还是 programming perl ?

兰花仙子

我认为intermediate perl容易懂一点。
看完这本后再看mastering perl.
programming perl仅作参考。。。