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

jnanako

刚开始学习Perl，编写了一个函数，主要用来进行统计。

sub count{
...#省略的代码主要用来进行统计，并将相应的值放到两个数组@count和@value里。
my @count;
my @value;
my $c_ref=\@count;
my $v_ref=\@value;
return $c_ref,$v_ref}#此处如果直接return数组，是ok的。但returen数组的引用，就会出问题。


之后调用count函数，并从其返回值中提取$c_ref，但@{$c_ref}的值为空。why？
请各位高手帮忙解释一下。谢谢了！

toniz

我也奇怪  我觉得应该是没问题的呀。
虽说my定义的是局部变量，但因为引用的存在，数组分配到的那块内存是不会被释放的。所以应该是没问题的才对。

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. my ($count,$value) = &count;
   
4. print @$count,"\n";
   
5. print @$value,"\n";
   
6. 
   
7. sub count{
   
8.         my @count = (1..5);
   
9.         my @value = (5..10);
   
10.         my $c_ref=\@count;
    
11.         my $v_ref=\@value;
    
12.         return ($c_ref,$v_ref);
    
13. }

复制代码

试了一下，没问题，你是不是接收语句写错了？

jnanako

回复 3# iamlimeng


    Thanks，根据你给的code，我换成了return($c_ref,$v_ref);后就正常了。请问，必须要将返回用括号括起来吗？

nuclearxin

带（） 返回的是list
不带返回的是 scalar 吧？ , 操作符？
我拆的

nuclearxin

。。。。不用带（） 也行啊 偶测试

1. 
   
2. 
   
3. [symphony@archlinux ~]$ perl a
   
4. wokao--woyun--wox--[symphony@archlinux ~]$ cat a
   
5. sub test {
   
6. return "wokao","woyun","wox";
   
7. }
   
8. @a = &test;
   
9. map {print $_,"--"} @a;
   

复制代码

toniz

问题应该不在挂号这里。

jnanako

回复 5# nuclearxin


   嗯，加括号返回的是list。直接返回的是标量，但引用的赋值对象也是标量啊，即便不加引号，return的$v_ref的值还是array的引用，这点可以通过print出来对比，但@{$v_ref}的值就是为空，这就是我困惑的地方。

toniz

最简单的方法  把你整个代码贴出来  别让我们在这里猜你错在哪！！

jnanako

#!perl64/bin/perl
       
@t=split /,/ ,&count;
print $t[0],"\n";#结果同print1
print $t[1],"\n";#结果同print2
print @$t[0],"\n";#空值
print @$t[1],"\n";#空值

sub count{
        my @count = (1..5);
        my @value = (5..10);
        my $c_ref=\@count;
        my $v_ref=\@value;
        print $c_ref,"\n"; #print1
        print $v_ref,"\n"; #print2
        return "$c_ref,$v_ref";
}