意表をついてPerlで画像を表示する（２）

で、意表をついてPerlで画像を表示させるやつをどう活かすがというサンプル

よくブラウザ毎に違う画像を表示させたりするようなのってありますよね。
いや、Javascriptでもできるんですけど。

あえてそれをPerlでやろうじゃないの！と、言うことで前回の続きです。

Perlがブラウザの種類を判別してブラウザ毎の画像を出します。
面倒なのでIEとFireFoxだけの分岐ですが。

サンプルソース

#!/usr/bin/perl #ブラウザを判定 if(index($ENV{'HTTP_USER_AGENT'},"MSIE") > -1){ 　$img = 'ie.gif'; } elsif(index($ENV{'HTTP_USER_AGENT'},"Firefox") > -1){ 　$img = 'firefox.gif'; } else{ 　$img = 'unknown.gif'; } open(IMG,"$img"); $byte = -s $img; print "Content-type: image/gif\n"; print "Content-length: $byte\n\n"; print <IMG>; close(IMG); exit;

実行結果

サンプルソースダウンロード

[ 更新:2007-04-07 09:28:55 ]

次の記事：：sendmailでPerlからメールを送信する >>