《perl语言入门》第五版中的一个课后习题，看不明白答案，谢谢

鸡鸡哥

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. use strict;
   
4. 
   
5. sub greet{
   
6.   state $last_person;
   
7.   my $name=shift;
   
8. #上面的这个shift是什么意思？
   
9. #我看说明，shift是操作数组的第一个元素的，这里的数组在哪里，而且是$name,说明是标量，不知为何？
   
10.   print "Hi $name!";
    
11. #这个$name取值是Fred，为何是Fred？
    
12. 
    
13.   if ( defined $last_person ){
    
14.     print "$last_person is alse here!\n";
    
15.   } else {
    
16.     print "You are the first one here!\n";
    
17.   }
    
18. $last_person = $name;
    
19. }
    
20. 
    
21. greet('Fred');
    
22. greet('barney');
    

复制代码

鸡鸡哥

搜索了一下，看来很多人是不明白子程序中shift的调用问题
http://zhidao.baidu.com/question/85574641
估计perl写的多了，就知道问题了，就习惯了这种表达

andy20008

这本书后面的习题从来都没看过，呵呵。。

cu_little_bird

要习惯perl的一些习惯

chenjintao_ii

谁能帮我分析分析以下链接中的几个问题？感激不尽~~
http://bbs.chinaunix.net/thread-3631510-1-1.html

naletive

my $name=shift;
其实这句话的意思是：
my $name=shift @_;
这样可以理解了吧。

wxlfh

其实楼主把《Perl语言入门》这本书看完，就不会有这种问题了。

wenzizone

6楼正解

鸡鸡哥

naletive 发表于 2011-12-21 13:04
my $name=shift;
其实这句话的意思是：
my $name=shift @_;

我一直尝试理解，最后发现，其实也只能这样理解，子程序的参数，好像都是数组或者列表值，默认为@_,所以你这么说理解是正确的。

zhlong8

鸡鸡哥 发表于 2011-12-23 17:53
我一直尝试理解，最后发现，其实也只能这样理解，子程序的参数，好像都是数组或者列表值，默认为@_,所以你 ...

什么叫一直尝试理解， perldoc -f shift 下什么都说的清清楚楚，按教程一步一步走怎么会不学 perldoc