はじめに

perlにおいて、配列（連想配列を含む）を返すようなサブルーチンを実装したい場合があります。
このページでは、その実装方法について説明します。

実現方法

perlにおいて、配列（連想配列を含む）を返すサブルーチンは、下記のように実装します。
（特に小細工せず、そのまま実装しただけです）

サンプルコード
sub returnArray1
{
	my(@RETURN)=();

	$RETURN[0]='Zero';
	$RETURN[1]='One';
	$RETURN[2]='Two';
	$RETURN[3]='Three';

	return(@RETURN);
}

sub returnArray2
{
	my(%RETURN)=();

	$RETURN{'ja'}='Japanese';
	$RETURN{'en'}='English';
	$RETURN{'ca'}='Canada';

	return(%RETURN);
}

@ARRAY1=&returnArray1();
%ARRAY2=&returnArray2();

print $ARRAY1[0]."\n";
print $ARRAY1[1]."\n";
print $ARRAY1[2]."\n";
print $ARRAY1[3]."\n";

print $ARRAY2{'ja'}."\n";
print $ARRAY2{'en'}."\n";
print $ARRAY2{'ca'}."\n";

実行結果
Zero
One
Two
Three
Japanese
English
Canada

あなたの探し物は見つかりましたか？
まさにこれだ
参考になった
ちょっと違う
これじゃない

何かメッセージがあればお願いします

このメッセージを非公開にする

ご注意

・頂いたメッセージは管理者のチェックの後、公開されます。
・メッセージの公開を希望されない場合には、「このメッセージを非公開にする」にチェックを入れてください。
・管理者が不適切と判断したメッセージは公開しませんので、予めご了承ください。

まさにこれだ
7 (58%)		 参考になった
3 (25%)		 ちょっと違う
1 (8%)		 これじゃない
1 (8%)

表示できるメッセージはありません。