サブルーチンに渡された引数を得る

サブルーチンに渡された引数は、すべてまとめて @_ 配列に格納されています。ですから、引数を受け取るには、この @_ 配列の中身を見れば良いわけです。

名前が特別ですが、通常の配列と同じですので、通常の配列を扱うように扱えます。
例えば、 shift を使って、1個ずつ取り出す方法があります。


			sub subroutine {

				$param1 = shift @_;

				$param2 = shift @_;

				$param3 = shift @_;

				：：：

			}

shiftを使えば、配列の先頭の要素から1つずつ抜き出すことができます。

1つずつ抜き出すような面倒なことをせずに、一気に全部抜き出すこともできます。


			( $param1, $param2, $param3 ) = @_;

上記の場合は、引数が3つある場合です。いくつでも増やせます。必要なだけ列挙すれば良いわけです。

引数が1個しかないのなら...


			$param = @_;

こういう書き方もできますね。(^^;)

2004/02/20. Fri.

このページに記載の内容は、必ずしも正しいとは限りません。ご注意下さい。
製作者にししへのご連絡は、メールなどでお送り下さい。
どのページへもリンクは歓迎します。

サブルーチン関連TIPS