del.icio.us / miyagawa çµç±ã§è¦ã¤ãã CPAN ã¢ã¸ã¥ã¼ã« HTML::TagCloudãTag Cloud (ã¯ã¦ãªããã¯ãã¼ã¯ã®å³å´ã«åºã¦ããã¿ã°ä¸è¦§ã¿ãããªãã¤) ãçæãã CPAN ã¢ã¸ã¥ã¼ã«ã§ãã åºåã¯ã©ããªæãããªã¨æã£ã¦ä½¿ã£ã¦ã¿ã¾ããã #!/usr/local/bin/perl use strict; use HTML::TagCloud; my $tags = [ { tag => 'blog', count => 20}, { tag => 'ajax', count => 10}, { tag => 'mysql', count => 5}, { tag => 'hatena', count => 12}, { tag => 'bookmark', count => 30}, { tag => 'rss', count => 1}, { t
{{#tags}}- {{label}}
{{/tags}}