wwwcount.cgiで外部ファイルを利用するには？

さぼてん [E-Mail] 1999/09/06(月) 22:03:48
　wwwcountを利用してカウントアップとブラウザ判別とトップページ表示をまとめて行おうとしています。

-----(引用）-----
if($user_a =~ /DoCoMo/)
{
printf("Content-type: text/html\n");
printf("\n");
printf("<HTML></HTML><BODY>\n");
printf("Now\n");
printf("$cntstr\n");
printf("Access_iMode");
printf("</BODY></HTML>\n");
}
else
{
printf("Content-type: text/html\n");
printf("\n");
printf("<HTML></HTML><BODY>\n");
printf("Now\n");
printf("$cntstr\n");
printf("Access_Mozzila");
printf("</BODY></HTML>\n");
}
-----(引用)-----

　このようにwwwcount.cgi?textの表示部分に手を加えているのですが、いかんせんページ内容のHTMLをcgi内に書いているので編集しづらいし、実行速度も心配です。
　そこで、HTML部を外部ファイルにして読み込む形にしたいのですが、なにぶん、まだ覚えだしたばかりで方法がよく解りません。
　どのようなスクリプトを書けばいいのでしょうか。
どうかご教授お願いいたします。

さぼてん [HomePage] 1999/09/06(月) 22:16:45
なお、上記アドレスでとりあえず動かしてみてます。

長月 1999/09/07(火) 09:39:46
Locationを使う方法はどうでしょうか？
if($user_a =~ /DoCoMo/) {
print "Location: docomo.html\n\n";
} else {
print "Location: sonota.html\n\n";
}

あ 1999/09/07(火) 13:46:43
外部ファイルの読み込みではないですが、
http://www.tohoho-web.com/wwwperl1.htm#EOF
とか使用して、以下みたいにすると、編集しやすく
なるのでは？

print <<HTML;
Content-type: text/html

<HTML></HTML><BODY>
Now
$cntstr
Access_iMode
</BODY></HTML>
HTML

[上に] [前に] [次に]