[原创教程] [Perl]函数返回复合数据结构

use JSON qw/to_json/;
my $data = gen_data();
printf "%s\n", to_json($data);  # 用 json 的形式打印 $data 的完整内容 
 
sub gen_data
{
    my $data_ref = [ [], [] ];  # 使用引用的形式保存数据
    map { push @{$data->[0]}, $_ } 1 .. 20;  
    map { push @{$data->[1]}, $_ } 'a' .. 'z';
 
    return $data_ref;           # 返回这个结构体的引用
}COPY

sub gen_data
{
    my @data = ( [], [] );
    $data[0] = [ map { $_ } 1 .. 20 ];
    $data[1] = [ map { $_ } 'a' .. 'z' ];
 
    return \@data;   # 返回这个数组(复合结构)的引用
}COPY