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

よくアクセスカウンター等で使われるんですが、Perlファイル（.cgi）にアクセスすると画像を表示！な～んてこともできます。Perlってスゴイね。

PerlはHTMLを出力するだけではありません。
画像を表示させる事もできるんです・・・・。ウヒョー。

例としてはアクセスカウンター。
アレはHTMLのimgタグからPerlを呼び出し、Perlから画像を呼び出して表示させてるのです。
あ、書いてて思ったけどけっこうややこしい。

簡単に言うとCGIにアクセスすると画像が表示されると！

説明はサンプルソースに書きましたので百聞は一見にしかずということで。

原理はHTMLを表示させてる原理と全く同じですが、ちょっと違う点はHTMLをPerlソース内で書いているのと違い、
画像の場合は同じサーバにある画像ファイルを読み込んで表示させています。

サンプルソース

#!/usr/bin/perl #ここで画像のパスを指定 $img = "example003.gif"; #ファイルのサイズを取得 $byte = -s $img; #画像ファイルをオープン open(IMG,"$img"); #ファイルのタイプを宣言 print "Content-type: image/gif\n"; #ファイルのサイズを宣言 print "Content-length: $byte\n\n"; #さっき開いた画像ファイルを画面に出力しなさい！ print <IMG>; #さっき開いた画像ファイルを閉じる close(IMG); exit;

実行結果

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

[ 更新:2007-04-07 09:11:05 ]

次の記事：：意表をついてPerlで画像を表示する（２） >>