digital hole

Software developing and otherwise.

Flower
« WordPressでソースコード色分け表示
シンプルな画像アップロードCGI »

最もシンプル（？）な画像出力CGI

ただ既存の画像を無加工で吐き出すだけ。

#!/uer/local/bin/perl

open(IN,"a.jpg");
binmode IN;
binmode STDOUT;

print "Content-type: image/jpg\r\n\r\n";
while(my $n = read(IN, my $buf, 1024)){
  print $buf;
}

close(IN);

This entry was posted on 日曜日, 1 月 25th, 2009 at 00:03 and is filed under Perl, プログラミング. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Leave a Reply