Perlのサブルーチンから戻り値を複数取得する方法

Question

Perlのサブルーチンで戻り値を複数受け取ることができるのでしょうか。

具体的には
sub method{
my $a = @[0];
my $a = @[1];

my @hash = ("あ", "い", "う")
my $scala = "あいう"
return (@hash, $scala)
}

my $a = 1;
my $b = 2;

my ( @hash, $scala ) = &method($a, $b);

上記のスクリプトではうまく受け取れないのですが
何かいい方法があったら教えていただけないでしょうか。

Answer 1

リファレンスを使うと、配列やハッシュを含む複数の戻り値を返すことができます。

あと、直接関係ありませんが、

• パラメーター取得はカッコつきで受け取る方が簡潔です。
• Perl5（ですよね？）では関数呼び出しに & は不要です。

use strict;
use warnings;

sub method {
	my ( $a, $b ) = @_;
	my @array = ("あ", "い", "う");
	my %hash = ( key1 => "value1", key2 => "value2");
	my $scalar = "あいう";
	return (\@array, \%hash, $scalar);
}

my $a = 1;
my $b = 2;

my ( $arrayref, $hashref, $scalar ) = method($a, $b);

print join(",", @{$arrayref}), "\n";
# => あ,い,う

print join(",", %{$hashref}), "\n";
# => key2,value2,key1,value1

print $scalar, "\n";
# => あいう