Help，函数返回数组引用的问题？

py

回复 8# jnanako


怎么会为空呢，我这里是正常的。

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use Data::Dumper;
   
5. 
   
6. sub count{
   
7.     my @count = (1,2,3,4);
   
8.     my @value = ('aa','bb','cc');
   
9.     my $c_ref=\@count;
   
10.     my $v_ref=\@value;
    
11.     return $c_ref,$v_ref;
    
12. }
    
13. 
    
14. my ($result1,$result2) = &count;
    
15. 
    
16. print Dumper($result1);
    
17. print Dumper($result2);
    

复制代码

iamlimeng

如果你不确定括号能不能省，就把它加上。养成把代码写全的习惯，这样以后也好维护。

return $c_ref,$v_ref}#

这里可能还缺分号。

py

#!perl64/bin/perl
       
@t=split /,/ ,&count;
print $t[0],"\n";#结果同print1
print $t[1],"\n";#结果同 ...
jnanako 发表于 2010-05-27 14:32

count的返回值是list，不是用","分开的字符串

toniz

@t=split /,/ ,&count;  这个是问题所在

toniz

"$c_ref,$v_ref" 这里返回的不再是引用，而是一个字符串。所以数组内存被释放，当然得不到东西了。

churchmice

回复 10# jnanako

1. 
   
2. return "$c_ref,$v_ref";
   

复制代码

这个不是标量是啥？

jnanako

谢谢几位热心的帮助，是我概念上理解错了。:wink:

yybmsrs

回复 10# jnanako


    return "$c_ref,$v_ref";不能这样写

yybmsrs

回复 12# iamlimeng


    最后一句可以不写分号。。。

jnanako

回复 18# yybmsrs


正是这个原因，我刚才用下面的代码做了个对比。找到了原因。
@s=qw(1 1 1 1 1 1 1)
$a=\@s;
$b="$a";#引号将reference字符串化了，失去了引用的功能
print $a,"\n";
print $b,"\n";#虽然print的结果和$a一样，但没有引用功能。
print @{$a},"\n";
print @{$b},"\n";#结果为空。

呵呵，刚入门，多谢各位的指导。