• Twitter
• Facebook
• Tumblr
• Email

タグクラウド(TagCloud)を生成したいが、かんたんに行えるモジュールはないだろうか？そんな時はHTML::TagCloudモジュールを利用すれば良い。

タグクラウドとは特定のキーワードに重み付けをし、重要な物は大きく表示しそうでない物は小さく成るというシンプルなものだ。いわゆるWeb2.0系のサイトなどで多用され、最近のMovableTypeでも実現できるようだ。

　　タグクラウドの例：flikr

PerlではHTML::TagCloudというモジュールがCPANにあがっているのでそれを利用すれば簡単に実現できる。

;#
;#タグクラウドを生成する
;#
 
use strict;
use HTML::TagCloud;
 
#------------------------------------------#
#タグの一覧を読み込ませる
#------------------------------------------#
 
my $cloud = HTML::TagCloud->new;
$cloud->add('Yahoo!', 'http://www.yahoo.com', 2);
$cloud->add('Google', 'http://www.google.com', 5);
$cloud->add('msn', 'http://www.msn.com', 2);
 
#------------------------------------------#
#表示
#------------------------------------------#
print $cloud->html_and_css;
 
#print $cloud->html;

addメソッドの第一引数はタグ名、第二引数はURL、第三引数は重みだ。重みの部分には例えば検索回数などをそのまま当てはめてやれば良い。最後のhtml_and_cssメソッドでCSSの定義からタグクラウドまでをHTMLで取得できる。CSSは自分で調整するという場合には、コメントアウトしているhtmlメソッドを用いれば良い。

その他詳しいことはドキュメントを参照のこと。

HTML::TagCloud http://d.hatena.ne.jp/naoya/20050701/1120197491

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email