#!/usr/bin/perl
use strict;
use warnings;
sub func_array
{
my @temp = qw/a b c/;
return @temp;
}
sub func_list
{
return qw/a b c/;
}
my $s = scalar(func_array());
my $s2 = scalar(func_list());
warn $s; //3
warn $s2; //c
[记号]忘了为设么。。。