日本の総理大臣の演説をタグクラウド化 US Presidential Speeches Tag Cloud が面白かったので日本の総理大臣版を3分ハッキング。コード自体は15分くらいでかけたんだけどデバッグやらデータの解析やらに時間がかかってトータルでは2時間くらいか。 Japanese Prime Minister Speeches Tag Cloud 首相官邸ホームページ からリンクをたどって HTMLをダウンロード、HTML::TreeBuilder で as_text して Text::MeCab に食わせ、名詞(代名詞などをのぞく)の頻度を YAML データとしてつっこみ、HTML::TagCloud でタグクラウド化しました。スライダーの JS などは元の US Presidential のほとんどパクリです。 IE だと行間がかなりつまってるのは HTML::TagCloud
use strict; use warnings; use HTML::TagCloud; my $tags = [ { tag => 'ごはん', count => 500, url => 'http://blog.mystorage.jp'}, { tag => '卵焼き', count => 100, url => 'http://blog.mystorage.jp'}, { tag => '味噌汁', count => 1, url => 'http://blog.mystorage.jp'}, { tag => '焼き魚', count => 10, url => 'http://blog.mystorage.jp'}, { tag => '納豆', count => 10, url => 'http://blog.mystorage.jp'}, { tag => 'のり', c
NAME HTML::TagCloud::Extended - HTML::TagCloud extension SYNOPSIS use HTML::TagCloud::Extended; my $cloud = HTML::TagCloud::Extended->new(); $cloud->add($tag1, $url1, $count1, $timestamp1); $cloud->add($tag2, $url2, $count2, $timestamp2); $cloud->add($tag3, $url3, $count3, $timestamp3); my $html = $cloud->html_and_css( { order_by => 'count_desc', limit => 20, } ); print $html; DESCRIPTION This is
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー&ペーストで使える便利集! カテゴリー:アラカルト タグクラウド(TagCloud)を簡単に生成する タグクラウド(TagCloud)を生成したいが、かんたんに行えるモジュールはないだろうか?そんな時はHTML::TagCloudモジュールを利用すれば良い。 タグクラウドとは特定のキーワードに重み付けをし、重要な物は大きく表示しそうでない物は小さく成るというシンプルなものだ。いわゆるWeb2.0系のサイトなどで多用され、最近のMovableTypeでも実現できるようだ。 タグクラウドの例:del.icio.us, flikr PerlではHTML::TagCloudというモジュールがCPANにあがっているのでそれを利用すれば簡単に実現できる。 ;# ;#タグクラウドを生成する ;# use strict; us
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く