ファイルの読み込みは require 'ファイルのパス'; として行いますが、
これを使用してサブルーチンを別ファイルにし、それを読み込んで実行してみます。
サンプルでは aaa.cgi というファイルを読み込み、 test.cgi から aaa.cgi の中に
書かれているサブルーチンを実行しています。
test.cgi を実行すると aaa.cgi のサブルーチンで書かれているページ表示を行います。
【aaa.cgi】
【test.cgi】
読み込んだ後は、ページ内に同じように書かれている状態になりますので、
変数の受け渡しやサブルーチンの実行など自由にできます。
読み込みされるファイル側には Perl のパスは必要ありません。
必要な場合のみ読み込みを行いたい時に使います。
読み込むファイルの末尾には必ず 1; を入れて下さい。
これはファイルが正常に読み込めた事を示す為に付けるもので、
最後に 1; が無いと読み込みに失敗したと認識しエラーとなります。
|