タグクラウドモジュール

いろいろあるけどなんでどれもこれもHTML作っちゃうんだろう。もっとシンプルなのほしい。hashで返してくれればいいよ。

とりあえず WWW::CloudCreator つかって

$c->stash->{tags} = [
    map +{
        name  => $_->[0],
        level => do { $_->[2] =~ /(\d+)pt/ },
        link  => $c->uri_for('/tag', $_->[0]),
        count => $_->[1]
    },
    grep {ref} $cloud->gencloud
];

こんなことして希望通りのものを作ってみてる。こういうのがほしいのだが。

上記の謎の grep {ref} はWWW::CloudCreatorがタグが空な場合空配列かえせばいいのになぜか空文字かえしてくるといううんこな実装なのでそれ対策。

by typester / at 2007-11-14T21:42:00 / perl / Comments(0)