サブルーチンの@_とreturn

質問

勉強を始めて数日、サブルーチンが理解できずこまっています。長くてすみませんが、どなたか以下の解説をお願いします。

1 : $aa = "hello";
2 : $kekka_sub_1 = $sub_1($aa);
3 : $kekka_sub_2 = $sub_2($aa);
4 :
5 : print "sub_1の結果: $kekka_sub_1";
6 : print "sub_2の結果: $kekka_sub_2";
7 :
8 : sub sub_1{
9 : ($aa) = @_;
10: $aa = "Hanako!".$aa;
11: return $aa;
12: }
13:
14: sub sub_2{
15: ($aa) = @_;
16: $aa = "Taro!".$aa;
17: return $aa;
18: }

まず、line9と15の@_というのが一体何なのかわかりません。
@といえば配列全体を示すものと覚えているのですが、これがどこから来たのか・・・・。
次にreturnですが、これは実際には「line１の$aaへ戻れ」という意味なのかそれとも別の意味なのか・・・・・。

私の持っている本だと＠＿は、サブルーチンの引数が設定されている変数です。とあるのですが、実際何をしているところなのかが理解できません。
勉強を始めたばかりなので、わかりやす～い解説を頂けたらうれしいです。よろしくお願いします。

回答No.1

yuizuian · ベストアンサー

まず、書かれているスクリプトに一部書き間違いと思われるところがありますので、そちらを修正しますね。
2 : $kekka_sub_1 = $sub_1($aa);
3 : $kekka_sub_2 = $sub_2($aa);
は
$kekka_sub_1 = &sub_1($aa);
$kekka_sub_2 = &sug_2($aa);
ですね。

引数というのは、関数へジャンプするときに
一緒に持っていく変数や値の事です。
たとえば、このスクリプトですと2行目、3行目の$aaの部分が引数に当たります。
Perlでは関数を呼び出すときに自動的に引数が@_という配列になります。
なので、引数は関数側ではその配列の添え字を利用して、
@_[0]　　# 一つ目の引数
@_[1]　　# 二つ目の引数
という感じで値を受け取るんです。
このスクリプトでは、値を受け取るときに
($aa) = @_;
となっていますが、これは
$aa = @_[0];
と同じ意味になります。
split関数の記述を思い出してくださればご理解いただけると思います。
でも後者の方がわかりやすいと思いますよ。

もっと言えば、このままだとこの$aaと関数を呼び出す時に使用した$aaは同じ物とみなされてしまうので、関数の中で$aaの中身を変えてしまったら、関数の外の$aaの中身も変わってしまいます。
それを防ぐ為には
local($aa) = @_[0];
として、「これはこの関数の中だけで使う変数なんだ」と書いてやる必要があります。

returnですが、これは「戻り値」と言いまして、関数から抜けるときに一緒に持って変える値の事です。（この場合$aa）
その値はこの例ですと$kekka_sub_2 = &sub_2($aa);
の$kekka_sub_2 に格納される事になります。

sub1では受け取った値（"hello"）を"Hanako!"と連結させて返しているんです。
実際にこのスクリプトを動かしてみると、よくわかると思いますよ。

長々と失礼しました。

お礼

yuizuianさん、とってもとっても分かりやすい解説ありがとうございます。
ものすごく分かりやすいので、ひとつひとつ何度も読んでます。
こんな参考書があったらいいんですけど、探すのが下手なのか、それとも私が理解できなさ過ぎなのか・・・・。
とにかく、ありがとうございます。本当に助かりました。