Perlコーディング初心者質問スレ Part 59

[0819 nobodyさん 2009/07/11(土) 16:34:37 ID:???]

use strict;
use warnings;

sub any_func {
my @a = (1, 2, 3);
my $s = 6;
return wantarray ? @a : $s;
}

print any_func();

wantarryをwantarrayに直しただけで、ちゃんと123が表示されるよ？