最もシンプル（？）な画像出力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);
Filed under 未分類. Tags:
ただ既存の画像を無加工で吐き出すだけ。
#!/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:
0 Comments.