タグクラウド(TagCloud)を簡単に生成する

;#
;#タグクラウドを生成する
;#

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;