プログラムでは、同じ処理を何度も行なうことがよくあります。
そのような処理はサブルーチンにまとめて、そのサブルーチンを呼び出して処理を行なえば、 プログラムコードが短くなり分かりやすくなります。

【書式】 sub 名前 { 処理 }

下記のプログラムは入力された数値の大きさを判定して、メッセージの表示を行ないます。

【サブルーチンなし】 入力された値が10未満の場合と、20より大きい場合、10〜20までの値の場合で表示メッセージを切り替えています。

【サブルーチン有り】 入力された値をサブルーチンに渡して、サブルーチン内で判定を行なっています。


サブルーチンを使用する際には、サブルーチンを呼び出してやる必要があります。
呼び出しは、「subroutin()｣ か ｢&subroutin｣ で呼び出すことが出来ます。
(subroutin はサブルーチン名です。)
サブルーチンに値を受け渡したい場合には、｢subroutin()｣ を使います。
上記プログラムでは、入力値を判定する check_data サブルーチンに、入力値を受け渡して呼び出しています。

前項でも触れましたが、サブルーチンに値を受け渡したい場合は ｢subroutin()｣ の () 内に受け渡したい値をセットします。
受け渡す値のことを引数(ひきすう) と呼びます。
引数が複数ある場合には、｢,(カンマ)｣ 区切りで引数を指定します。

引数が1個の場合は、「$_ (標準変数)｣ を使って受け取ります。

引数の読み込みには、「shift｣ を使って読みこむ事も出来ます。


引数が複数の場合は、「@_ (特殊配列)｣ を使って受け取ります。

サブルーチンからの返り値は、何も指定しなければ、一番最後の行が評価されてその値がサブルーチンの返り値となります。 return 関数を使うと明示的にサブルーチンの返り値を指定することが出来ます。

下記のプログラムでは、引数として渡される２つの値の合計を返します。

【合計を求めるサブルーチン】 このサブルーチンでは、引数を受け取る際に ｢@_ (特殊配列)｣ の要素を直接指定 ($_[0], $_[1]) して
変数 ($a, $b) にセットしています。

サブルーチンや条件文など ｢{ }｣ で囲まれた処理単位のことをブロックと呼びます。
ブロックの外で定義している変数は､グローバル変数と呼びます。
変数をローカル化すると、その変数はローカル化したブロック内だけで有効となります。

local 関数で指定した変数は、グローバル変数で使用している変数と同名であっても､全く別の変数として扱われます。

このプログラムでは、｢ローカル変数です。｣ の文字が表示されます。
グローバル変数にも同名の $text 変数がありますが、サブルーチン内では､ローカル変数の $text が有効となります。


my 関数は local 関数よりも強力にローカル化を行ないます。(Perl5 より有効)




ブロックの外と内で同じ変数名を使いたい場合に、変数をローカル化すると便利です。
Perl5 が使える環境下ならば、my 関数を使ったほうがよいでしょう。
(ミスティーネットのレンタルサーバーでは､Perl5 を使用していただけます。)