函数在返回数组的时候遇到了问题。。。大家都来看看：）

snriyt

真复杂

黑色阳光_cu

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. sub my_shift(\@)
   
8. {
   
9.         my ($elem, @tail) = @{$_[0]};
   
10.        
    
11.         @{$_[0]} = @tail;
    
12.         return $elem;
    
13. }
    
14. 
    
15. sub function
    
16. {
    
17.         my @temp = qw/a b c/;
    
18.         return @temp;
    
19. }
    
20. 
    
21. 
    
22. warn my_shift(function());
    

复制代码

类似于这样子。。。

hwxo

foreach my $var (&function) {

my $one = shift (&function);

funciton函数均在标量环境中调用。
所以会报错。

toniz

1. A "return" statement may be used to exit a subroutine, optionally specifying the returned value, which
   
2.        will be evaluated in the appropriate context (list, scalar, or void) depending on the context of the sub-
   
3.        routine call.  If you specify no return value, the subroutine returns an empty list in list context, the
   
4.        undefined value in scalar context, or nothing in void context.  If you return one or more aggregates
   
5.        (arrays and hashes), these will be flattened together into one large indistinguishable list.

复制代码

因为函数返回的是什么决定于调用该函数的环境。也就是说：
用$aa=$fun()的时候，这个是标量环境，那么函数返回的是数组或者列表处于标量环境的值，而不是返回这整个数组，或列表，然后再求值。

py

#!/bin/env perl

use strict;
use warnings;

sub func_array
{
        my @temp = qw/a b ...
黑色阳光_cu 发表于 2010-08-05 08:58

这就是标量上下文和列表上下文的问题了。
我的理解是这样的，如果把一个list存起来，那就是一个array，比如@name = qw/a b c/中，qw/a b c/是list，@name就是array。
qw/a b c/是('a','b','c')，你用scalar(func_list())相当于scalar qw/a b c/，这个scalar是一元的，它会对a,b,c分别做scalar，然后在标量上下文中返回scalar(c)。

py

回复 10# flw


我把标题写成那样就是想让你来给我个"大背跨"，呵呵。很多概念我还是模糊。。。你快给说说吧。。。

黑色阳光_cu

我错了。把Perl的上下文忘了。

但那个报错，确实是发生在编译时~~~~

py

我错了。把Perl的上下文忘了。

但那个报错，确实是发生在编译时~~~~
黑色阳光_cu 发表于 2010-08-05 12:10

恩，对，只要打开-w选项，运行程序的时候是能看到提示的。

Type of arg 1 to shift must be array (not subroutine entry) at ./function.pl line 17, near "&function)"
Execution of ./function.pl aborted due to compilation errors.

黑色阳光_cu

函数被调用，传递的参数

func (1, 2, 3, 5, 6, @vals);

其实是list，而函数的返回值

return @array
return @hash

假如没有scalar上下文，都是返回list。

也就是说，函数可以返回一个或者多个值，而不是array或者hash什么的。



刚想到一个返回array的办法~~~~

dugu072_cu

ft～
有这么麻烦嘛，与什么上下文无关，就一点： list是 value，array 是 variable！
由于 shift 要修改传递的参数，故只能对  variable 进行操作， 而 list 是一个 value，相当于一个常量，当然无法传递给 shift 了……