Perl wantarray 函数

• 

  描述

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

  句法

  以下是此函数的简单语法-

  
  wantarray
  

• 

  返回值

  如果没有上下文，则此函数返回undef；如果lvalue需要标量，则此函数返回0。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  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