カテゴリ:Perl( 1 )
Perlで他ファイルをインクルードでき…る?
私はSSIもしくはPHPなどで共通メニューをインクルードさせてラクしてます。
ところが、CGI(と言うか、Perl)だけはいつもこれがうまくいかず…どうやって外部ファイルをインクルードしてやればいいの?と、いつも頭の中は疑問でいっぱい。
調べて試してもうまくいかなかったわけですが、何かの参考になるかもしれないソースを拾ったのでメモ。

open (IN,"< データファイル名");
while(<IN>){
print;
}
close (IN);
基本的にはこれでファイルをインクルードできるもよう。

※ご指摘に沿って1行目を修正しました。(2006.4.5)
※ブログの仕様上、1行目の()は全角にしてありますが、実際に使用する際は半角の()に直して下さい。

※上の例とちょっと形が違いますが…
「SSIなどで全ページ共通のメニュー(menu.html)を各ページにインクルードしており、その共通メニューを(例えば)掲示板CGI内にも表示したい」と言う場合、こんな感じです。(実稼働済み)
open(IN, "/絶対パス/menu.html");
print while ();
close(IN);
※ブログの仕様上、1行目の()は全角にしてありますが、実際に使用する際は半角の()に直して下さい。
[PR]
by sozaifan | 2004-08-10 15:51 | Perl