ただ単にダミー画像をperlで表示するだけのルーチン

ただ単にダミー画像をperlで表示するだけのルーチン

CGIでダミー画像(GIF)を表示するだけのスクリプト。
画像データ必要なし。

my @dummy = (
"47","49","46","38","39","61","08","00","08","00","80","00","00","00","00","00",
"FF","FF","FF","21","F9","04","01","00","00","01","00","2C","00","00","00","00",
"08","00","08","00","40","02","06","8C","8F","A9","CB","ED","5D","00","3B" );
print "Content-type: image/gif\nPragma: no-cache\n\n";
binmode(STDOUT);
foreach (@dummy) { print pack('C',hex($_)); }


・・・と思ったら、面白い記事を発見
1px透過GIF・PNGの最小base64表現
http://mayokara.info/note/view/328