タグクラウドの作成


 HTML::TagCloudモジュールを使うと簡単です。
use strict;
use HTML::TagCloud;

my $tags = [
	{ tag => '林檎', url => 'rng.html', count => 8 },
	{ tag => '梨', url => 'ns.html', count => 10 },
	{ tag => '葡萄', url => 'bdu.html', count => 15 },
	{ tag => '柿', url => 'kk.html', count => 50 },
	{ tag => '蜜柑', url => 'mkn.html', count => 2 },
];

my $cloud = HTML::TagCloud->new;

foreach my $tag (@$tags) {
	$cloud->add($tag->{tag}, $tag->{url}, $tag->{count});
}

print $cloud->html_and_css();

関連項目

なし