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