YappoLogs: Acme::2chRoadsign - 2chな道路標識管理モジュール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が作れます。 一応画像の指定
