wantarrayとは

以下を読んでいて、ハッシュのスライスは知っていたのですが、wantarrayは知りませんでした。

• http://d.hatena.ne.jp/perlcodesample/20080729/1217341316

なので調べてみました。

wantarrayとは、共通関数の一つで、実行中のサブルーチンの戻り値に、リストを要求される場合には真を返し、スカラーを要求される場合には偽を返す。

#!/usr/bin/perl
use strict;
use warnings;

my @foo = hoge();
print @foo, "\n"; # 配列要素

my $foo = hoge();
print $foo, "\n"; # 配列要素数

sub hoge {
    my @array = ('AAA', 'BBB', 'CCC');
    return wantarray ? @array : $#array;
}

• 参考：
  http://d.hatena.ne.jp/perlcodesample/20080610/1213199380