ただ単にダミー画像をperlで表示するだけのルーチン
- 2009.02.02
- 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
-
前の記事
perlでHTMLから本文を抜き出せるモジュール HTML::ExtractContent 他 2009.01.28
-
次の記事
連続で大量のデータをINSERTする実験 2009.02.06