Perl wantarray()函数
原文：http://blog.csdn.net/frt007/article/details/42681089
1. 语法
wantarray
2. 定义和用法
返回true，如果当前正在执行的函数的上下文中正在寻找一个列表值。 在标量上下文，则返回false。
3. 返回值
· undef - 如果没有上下文
· 0 如果左值期望标量
4. 例子
use strict;
use warnings;
use feature 'say';
sub foo {
return wantarray ? qw(A B C) : '1';
}
my $result = foo(); # scalar context
my @result = foo(); # array context
print("foo() in a scalar context: $result\n");
print("foo() in an array context: @result\n");
5. 运行结果
foo() in a scalar context: 1
foo() in an array context: A B C
