请教my申明变量的引用返回

justu78

我最近在写一个子程序，需要在循环中返回很多次同一个my申明的变量的引用，我发现用\@xx，这样返回后在主程序中得到的只是最后一个引用，除非用[@xx]这样的匿名数组引用返回才是想要的，我不太清楚其中的理论依据，请高手指教。请不要说有别的办法完成类似的任务，我只是想学习其中的原因。谢谢。下面是我准备的一个简单例子：

#!/bin/sh
eval 'exec perl -S -x -W $0 ${1+"$@"}'
#!perl
$\="\n";
$,=" ";
@ttt=&ttt;
print @ttt;
foreach (@ttt){
@tou=@{$_};
print @tou;
}
sub ttt {
#use strict;
my(@xx,$i,@yy);
for($i=0;$i<=10;$i++){
@xx=();
push(@xx,$i**3);
push(@xx,$i**3+$i**0.6);
######here is the option###########
push(@yy,\@xx);
#push(@yy,[@xx]);
}
return(@yy);
}
只有使用 push(@yy,[@xx]) 才能得到正确的结果，用push(@yy,\@xx)不行。

rubyish

1. sub ttt {
   
2.     my ( $i, @yy );
   
3.     for ( $i = 0 ; $i <= 10 ; $i++ ) {
   
4.         my @xx;
   
5.         push( @xx, $i**3 );
   
6.         push( @xx, $i**3 + $i**0.6 );
   
7.         push( @yy, \@xx );
   
8.         #push(@yy,[@xx]);
   
9.     }
   
10.     return (@yy);
    
11. }

复制代码

justu78

rubyish 发表于 2014-01-04 00:55

你这是在循环内每次用my定义吧，为什么这样就可以了？是不是my重置了变量的内存地址？