- 179 名前：164 mailto:sage [2009/01/19(月) 16:37:19 0]
- >>162-163
スレ違いで恐縮ですが、一応できましたのでご報告させていただきます。
img.cgi
--------------------------------------------------------------------------------------
#!/usr/bin/perl
#GETメソッドの場合は QUERY_STRING から受け取る
$img_url = $ENV{'QUERY_STRING'};
# 画像を読みこむ
open(IMG, $img_url);
binmode(IMG); # バイナリモードで読み出す
read(IMG, $image, -s $img_url);
close(IMG);
# 画像を書き出す。
binmode(STDOUT); # バイナリモードにする
print "Pragma: no-cache\n"; # ファイルをキャッシュに残さない
print "Cache-Control: no-cache\n";
print "Content-type: image/jpeg\n"; # image/jpeg で書き出す
print "\n";
print $image;
|
 |
