画像表示

更新日 2010-03-11 (木) 16:51:32

Perlで画像表示する方法

display_img.cgi

#!/usr/bin/perl

#// 準備
$fname = "./img1.jpg";
$imgtype = 'jpeg';

#// 画像オープン
open(IMG, "$fname") or die;

#// イメージ表示
# IMG ファイルをバイナリモードでアクセスする
binmode IMG;

# STDOUT ブラウザレスポンスをバイナリモードにする
binmode STDOUT;

print "Content-type: image/$imgtype\n\n";
print while (<IMG>);

#// 画像クローズ
close(IMG);

#// 終了
exit(0);

display_img.html

<html>
<body>
<h2> Perl TEST </h2>

<img src = "./display_img.cgi">

</body>
</html>

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-03-11 (木) 16:51:32 (2905d)