[Perl]对非标量函数返回值的处理

 函数的返回值肯定不可能只是标量，当返回值为多个时，我们可以把返回值放入列表，这是很正常的。

但是如果函数的其中一个返回值不是标量，情况会是什么样子？#!/usr/bin/perl sub get_value { my $err = 0; my @arr1; my @arr2; push @arr1, "item for arr1"; push @arr2, "item for arr2"; return ($err, @arr1, @arr2); } my ($error, @array1, @array2) = get_value(); print "error: $error, array1: @array1, array2: @array2/n"; 

上面这个例子中，我希望返回1个标量+2个列表，array1中存放item for arr1, array2中存放item for arr2.
可是运行结果却大相径庭：
$ perl return_value.pl
error: 0, array1: item for arr1 item for arr2, array2:
结果arrary1的内容同时包括了item for arr1和 item for arr2。
原因是什么？
($err, @arr1, @arr2) = （0，"item for arr1"， "item for arr2"）
perl函数返回的列表是被“铺平（flattened）”,
($err, @arr1, @arr2) 等价于($err, $arr1[0], $arr1[1], $arr1[2]....$arr2[0], $arr2[1]....)

问题该怎么解决呢？我的确需要返回一个列表！
使用引用！！

#!/usr/bin/perl sub get_value { my $err = 0; my @arr1; my @arr2; push @arr1, "item for arr1"; push @arr2, "item for arr2"; my $err1 = 1; return (/@arr1, $err, /@arr2); } my ($array1, $error, $array2) = get_value(); print "number of array1 = ". scalar($array1); 

在return的时候，返回列表的引用！这样就不会有问题了。
只是在使用列表的时候需要对引用进行转化！

我想对于hash的返回值来说，直接用引用做返回值也是一个不错的方法。