blog.nomadscafe.jp

HTML::Rainbowなるモジュール発見

use HTML::Rainbow;
my $r = HTML::Rainbow->new(use_span=>1);
print $r->rainbow("somewhere over the rainbow, bluebirds fly");

とすると、想像通り

somewhere over the rainbow, bluebirds fly

を吐き出してくれます。
長い文章の方がきれい。

もうちょっとパラメーターをいじって、

my $str = "somewhere over the rainbow, bluebirds fly";
my @period=grep {$_ % int(2+($_/11)) == 0 } (length($str)/4..length($str));
my $r = HTML::Rainbow->new(
	use_span=>1,
	period_list=>?@period
);
print $r->rainbow($str);

やると、

somewhere over the rainbow, bluebirds fly

もうちょっと派手になるかな。

Podに書いてある内容がアレゲ

Win friends, and influence enemies, on your favourite HTML bulletin board.

なんかぱど厨文化。