perl wantarray()

perl wantarray()函数

语法

定义和用法

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

返回值

• undef -?如果没有上下文

• 0?如果左值期望标量

例子

#!/usr/bin/perl -w
#by www.yiibai.com

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

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

print("foo() in a  scalar context: $resultn");
print("foo() in an array  context:
@resultn");

这将产生以下结果：

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