プログラム質問箱への投稿
記事番号00660へのフォローを投稿します。
引用記事中のHTMLをエスケープせずに
そのまま引用
することも出来ます。
お名前(ペンネイムで結構ですが必要です)
(
ブラウザに個人情報を覚えさせない)
電子メイルアドレス(必要です)
題名(必要です)
Home Page がある方はリンク希望先の URL を記載して下さい
会議室に載せたい内容を以下へお書き下さい (
HTMLを解釈せずにそのまま表示)
5月22日に、にあさんは書きました。 >5月21日に、三葉工房さんは書きました。 > >>で,色々と,$ctimeのフォーマット(WEEK_NAMEを3文字略(san等),若くはフル書きに >>したり等),色々とRCEのフォーマットを替ながら,そのスクリプトのHTMLで出力される >>サブルーチンにフォーマットその物をプリントアウトして確認出来る様にして, >>フォーマットのミスが無い事を確認しながら試して見ましたがやはり無理でした。 > >うーん、どんなスクリプトになったのか分かりませんが、例えば以下のように >(大胆にエラー処理などを削除してある(^^;;)<A HREF="/%7Enir/cgi-bin/random-image.pl">簡単なスクリプト</A>を実行してみましょうか。 ><HR> >#!/usr/local/bin/perl > >@wday = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); >@mon = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); > >srand; >($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime; >$ctime = sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT", > $wday[$wday], $mday, $mon[$mon], $year + 1900, $hour, $min, $sec); >print "Content-Type: image/gif\r\nExpires: $ctime\r\n\r\n"; >open(IMG, sprintf('%s/ba%d.gif', '/home3/nir/public_html/icons/ball', int(rand(6)))); >$/ = undef; print <IMG>; >close(IMG); > >exit(0); ><HR> > >これを実行すると、ba0.gif〜ba5.gifのどれかが「<IMG SRC="/%7Enir/cgi-bin/random-image.cgi">」の様に表示されます。 >どうですか? リロードしても違うボールになりませんか? (^^)
ホームペーヂに戻る
nir@mvg.biglobe.ne.jp
Last Update: 2 December 1999