perl wantarray()函数

perl wantarray()函数例子，wantarray()函数实例代码 - 返回true，如果当前正在执行的函数的上下文中正在寻找一个列表值。

语法

wantarray

定义和用法

返回true，如果当前正在执行的函数的上下文中正在寻找一个列表值。在标量上下文，则返回false。

返回值

• undef - 如果没有上下文

• 0 如果左值期望标量

例子

#!/usr/bin/perl -w
#by www.gitbook.net

sub foo {
    return(wantarray() ? qw(A, B, C) : '1');
}

$result = foo();    # scalar context
@result = foo();    # array context

print("foo() in a  scalar context: $result\n");
print("foo() in an array  context:
@result\n");

这将产生以下结果：

foo() in a  scalar context: 1
foo() in an array  context:
A, B, C