| ページのリフレッシュ |
クライアントプルはCGIとは直接関係がありませんが、例えば、イントラネットでのホームページなどでニュースなどを配信していて、30分から1時間程度の時間経過後にアップデートしたい場合に、クライアント・プルを使うと便利です。ユーザがブラウザを操作せずにそのページを開いていても、一定時間後に更新されるわけです。
<HTML> <HEAD> <TITLE>ページのリフレッシュ(クライアントプル)</TITLE> <META HTTP-EQUIV="Refresh" CONTENT="10"> <BODY> 10秒後に自動的にリロードされます。 </BODY> </HTML> |
#!/usr/bin/perl
#
# server_push.cgi
#
# (C)1999 Kaoru Fujita
#
#
# 定数
#
# タイトル
$Title = 'サーバプッシュ サンプル';
$IMGLoc ='./images';
$IMGType = 'gif';
$Interval = 1;
#
# メインプログラム
#
print qq(Content-type: multipart/x-mixed-replace;boundary=multimage\n\n);
for ($i=0; $i < 10; $i++) {
print qq(\n--multimage\n);
print qq(Content-type: image/$IMGType\n\n);
open(IMG, "$IMGLoc/$i.$IMGType") or
exitError("画像ファイル $IMGLoca/$i.$IMGType がオープンできません。");
binmode(IMG);
binmode(STDOUT);
while (<IMG>) {
print;
}
close(IMG);
fflush(STDOUT);
sleep($Interval);
}
print qq(\n--multimage--\n);
exit(0);
#--End of server_push.cgi
|
[サンプルプログラムの実行]