WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:perl内で読み込み中の表示

0:[投稿] 鏡 [2006/08/29 07:46 ] [環境:WINXP UNIX]

perlの処理で表示までに時間がかかるときに、

「ただいま読み込み中・・・」

のような表示をさせたいのですが、
何か効率の良い方法はありますでしょうか?

表示されっぱなしならできるのですが、
処理が終了して表示されだしたら、
このメッセージが消えるようにしたいのです。

現在は単純に以下のようにしています。


while(<IN>) {
$i++;
if($i == 1) { print "読み込み中です"; }

ここに重い処理

}

重い処理部分が表示されだしたら
読み込み中メッセージを削除したいのですが・・・。

もし何か良い方法がありましたらご教授いただけると幸いです。


1:[回答] / [2006/08/29 10:46 ]

重い処理を解決する方が先決でしょ?
ヘタなギミックを考える暇があったら(略)


2:[回答] B-Cus [2006/08/29 11:30 ]

print <<END;
<span id="status">読み込み中です</span>
END

重い処理

print <<END;
<script type="text/javascript">
<!--
 document.getElementById("status").firstChild.nodeValue = '完了しました';
// -->
</script>
END

とか。


3:[完了] 鏡 [2006/08/29 12:14 ]

B-Cus 様

的確なアドバイスありがとうございました!
おかげさまで思い通りにいきました。

本当にありがとうございました。

回答(必須): 状態:

お名前(必須):

URL:




[戻る]