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

2009年1月25日 Leave a comment? Go to comments(2)

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

#!/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);

Filed under 未分類. Tags:

2 Comments.

Leave a comment
  1. Louella 2014年7月11日 03:02

    I see a lot of interesting posts on your blog. You have to
    spend a lot of time writing, i know how to save you a lot
    of work, there is a tool that creates unique, SEO friendly articles in couple of minutes, just type in google – k2
    unlimited content

    返信
  2. Kelli 2016年7月11日 10:15

    You condlu’t pay me to ignore these posts!

    返信

Leave a Reply

( Ctrl + Enter )