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

黑色阳光_cu

1. sub func
   
2. {
   
3.         my @ar = qw/a b c/;
   
4.         return @ar;
   
5. }
   
6. 
   
7. 
   
8. sub func2 :lvalue
   
9. {
   
10.         my @ar = qw/a b c/;
    
11.         @ar;
    
12. }
    
13. 
    
14. warn \func();
    
15. warn \func2();
    

复制代码

py

ft～
有这么麻烦嘛，与什么上下文无关，就一点： list是 value，array 是 variable！
由于 shift 要修改传 ...
dugu072_cu 发表于 2010-08-05 14:40

说“上下文”的时候，说的是另一个问题，是在说scalar的输出结果为什么会不同。

你这个解释很有道理，呵呵。。。

之前我一直认为foreach的行为就相当于shift的行为，但显然不是。。。 shift就是pop，是要对数组进行修改的，foreach只是读而已。

试了下，shift (qw/a b c/)是会报错的，提示shift must be array (not list)

黑色阳光_cu

正如我所料

sub func2 :lvalue
{
        my @ar = qw/a b c/;
        @ar;
}

虽然func2是返回array了，但是

shift(func());

还是报错，因为编译时不能确定func2返回什么。

toniz

黑色阳光_cu 是对的。编译不通过是因为：
shift(func()); 失败是因为shift的参数只能是array.而不是一个表达式， 而func()是一个表达式。


不是返回参数能不能修改的原因。下面例子可以解释：

1. foreach my $tt(qw(1 3 5)){
   
2. print $tt."\n";
   
3. #$tt=1;
   
4. }
   

复制代码

去掉注释就运行失败，因为qw是value，是只读的。
但函数返回值并不是只读的。看下面例子：

1. sub function {
   
2.     my @temp = qw/a b c/;
   
3.     return @temp;
   
4. }
   
5. foreach my $var(function) {
   
6.     print "$var\n";
   
7.     $var=1;
   
8. }

复制代码

黑色阳光_cu

顺便说一下 ..  产生的列表不是只读的

foreach my $elem (1 .. 10)
{
        $elem = 1;
}

toniz

:emn1:不应该说表达式  应该说函数调用 o(∩_∩)o...

dugu072_cu

黑色阳光_cu 是对的。编译不通过是因为：
shift(func()); 失败是因为shift的参数只能是array.而不是一个表 ...
toniz 发表于 2010-08-05 15:44

    黑色阳光_cu 的 warn \func(); ，说明了 return 确实是返回 list；但结合你给的代码，反而很难理解了：为什么 return 回来的 list，这里却可以修改？

toniz

因为作为参数传递的是临时变量。

ttcn_cu

Perl 内部做了很NB的优化，有点看不懂了

1. 
   
2. warn "======qw======";
   
3. for (qw(1 2 3 4)){
   
4. warn $_;
   
5. warn \$_;
   
6. }
   
7. warn "========..======";
   
8. for (1..4){
   
9. warn $_;
   
10. warn \$_;
    
11. }
    

复制代码

1. ./x.pl
   
2. ======qw====== at ./x.pl line 9.
   
3. 1 at ./x.pl line 11.
   
4. SCALAR(0x8166c28) at ./x.pl line 12.
   
5. 2 at ./x.pl line 11.
   
6. SCALAR(0x8166d48) at ./x.pl line 12.
   
7. 3 at ./x.pl line 11.
   
8. SCALAR(0x8166c28) at ./x.pl line 12.
   
9. 4 at ./x.pl line 11.
   
10. SCALAR(0x8166d48) at ./x.pl line 12.
    
11. ========..====== at ./x.pl line 14.
    
12. 1 at ./x.pl line 16.
    
13. SCALAR(0x81677ec) at ./x.pl line 17.
    
14. 2 at ./x.pl line 16.
    
15. SCALAR(0x81677ec) at ./x.pl line 17.
    
16. 3 at ./x.pl line 16.
    
17. SCALAR(0x81677ec) at ./x.pl line 17.
    
18. 4 at ./x.pl line 16.
    
19. SCALAR(0x81677ec) at ./x.pl line 17.

复制代码

yybmsrs

回复 24# toniz


    为什么qw是value呢？qw(1 2 3)和(1..3)的区别呢？