スクリプトの中に画像ファイルをテキスト文字化したものを埋め込んでおいて、 それを出力するというだけのスクリプトです。実用性はほとんどないと思いますが‥
#! /usr/bin/perl ## ## ただ単に GIF ファイルを出力するだけのスクリプト ## $image = '%47%49%46%38%39%61%01%00%01%00%f0%00%00%00%00%00%00%00%00%21%f9%04%01%00%00%00%00%2c%00%00%00%00%01%00%01%00%00%02%02%44%01%00%3b'; ## =============================================================== ## image のつくりかた ## 1) ImageMagick を使って以下のように透明なGIFファイルを作成: ## % convert -size 1x1 xc:white -transparent white trans.gif ## 2) 上記をエンコード perl などを使って、こんな感じ ## s/./sprintf("%%%02x",unpack("C",$&))/eg; ## この結果が、上の $image である。あとはこれをデコードして出力すればOK ## =============================================================== ## alarm 10; # 邪魔なときは、はずして $| = 1; # 邪魔なときは、はずして print "Content-type: image/gif\n\n"; # ヘッダを出力して‥ $image =~ s/\%([0-9a-f]{2})/pack("C",hex($1))/eg; # デコードして‥ print $image; # 出力して‥ exit; # おわり!