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

toniz

回复 1# py


    :emn1: 因为返回的是一个参数列表，而不是一个array.

1. foreach my $var qw/1 2 3/ {
   
2. 
   
3.     print "$var\n";
   
4. 
   
5. }
   
6. 
   
7. 
   
8. my $one = shift ( qw/1 2 3/);
   

复制代码

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()的时候，这个是标量环境，那么函数返回的是数组或者列表处于标量环境的值，而不是返回这整个数组，或列表，然后再求值。

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. }

复制代码

toniz

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

toniz

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

toniz

这里要说到一个机制，记得数组@aa=(1..1000000000)这样会占用很大的存储空间吗？
如果我们用for(1..100000000000)却不存在这问题。这是因为：

but you should be aware that the ".." operator creates an array of all integers in the range.  This can
       take a lot of memory for large ranges.  Instead use:

           @results = ();
           for ($i=5; $i < 500_005; $i++) {
               push(@results, some_func($i));
           }

       This situation has been fixed in Perl5.005. Use of ".." in a "for" loop will iterate over the range, with-
       out creating the entire range.

           for my $i (5 .. 500_005) {
               push(@results, some_func($i));
           }

       will not create a list of 500,000 integers.

Perl在5.005.版本之后对for做了优化。所以只占用一个地址位。


而for (qw(1 2 3 4)){..}这个之所以会占用两个地址，是因为perl的内存回收机制。

toniz

在for语句中不算，但拿出来赋值还是算

toniz

这里只是因为PERL针对FOR语句的优化

toniz

我也来提个问题，看下面的代码：

1. for my $aa(qw(1 2 3 4)){
   
2. #        $aa=1234;
   
3.         ${\$aa}=1234;
   
4. }

复制代码

这样运行正常。去掉第一句的注释，就报错。。

$aa是只读的，而\$aa指向的变量却是可写的。
也就是说\$aa并不是$aa的引用。晕不。。。

toniz

不一样的， ${\$aa}=1234;是想对$aa赋值。
而你的 $bb = 10;是对$b赋值。

看下面代码：

1. $aa=123;
   
2. ${\$aa}=1;
   
3. print "$aa\n";
   
4. 
   
5. $aa=123;
   
6. $bb=\$aa;
   
7. $bb=1;
   
8. print "$aa\n";

复制代码