YappoLogs

Acme::2chRoadsign - 2chな道路標識管理モジュール

VIPに「２ｃｈの標識作った」というスレッドが立っていたらしく、というのもさっきはてブで知ったんだけど。
そこの画像達がクオリティ高杉なので、ついカッとなってperlモジュールにしてしまった。
あまり反省しない。

#!/usr/bin/perl


use strict;

use warnings;

use Acme::2chRoadsign;

my $sign = Acme::2chRoadsign->new;

print "Content-Type: ".$sign->type."\r\n";

print "Content-Length: ".$sign->size."\r\n\r\n";

print $sign->image;

こんなスクリプトだけで下みたいな画像をランダムで吐き出すCGIが作れます。

一応画像の指定も出来ます。

http://tech.yappo.jp/download/Acme-2chRoadsign-0.01.tar.gz
一画像/1pluginの形式となってるので、画像が増えたらscriptディレクトリの中のスクリプトで増やして下さい。
最初は、全プラグインを最初に読むようにしてたんだけど無圧縮で3M(圧縮で1.8M)もデータ食ってるので使うプラグインだけ読むようにしました。

これCPANにうpりたいけどingy怒りそうで怖い。

Posted by Yappo at 2007年03月22日 21:43 | TrackBack | Perl