滅多に使わない処理の場合、サブルーチンを別のファイルにしておき、必要な場合のみ
読み込んで使う方法にすると、基本動作の時のスクリプトのサイズが小さくできます。
ファイルの読み込みは require 'ファイルのパス'; として行いますが、
これを使用してサブルーチンを別ファイルにし、それを読み込んで実行してみます。
下のサンプルでは、 test.cgi の変数 $aaa の値が on の場合のみ aaa.cgi を読み込み、
その中のサブルーチンを実行します。
それ以外の場合は、 aaa,cgi を読み込まず、test.cgi 内だけで処理を行います。
【aaa.cgi】 必要な場合のみ読み込まれるスクリプト
【test.cgi】 基本スクリプト
読み込みされるファイル側には Perl のパスは必要ありません。
必要な場合のみ読み込みを行いたい時に使います。
読み込むファイルの末尾には必ず 1; を入れて下さい。
これはファイルが正常に読み込めた事を示す為に付けるもので、
最後に 1; が無いと読み込みに失敗したと認識しエラーとなります。
|