一定期間更新がないため広告を表示しています
文章をタグクラウド化 アメリカ合衆国の大統領の演説をタグクラウド化した US Presidential Speeches Tag Cloud や日本の首相の演説をタグクラウド化した Japanese Prime Minister Speeches Tag Cloud などを見て、そういう使い方があるんだな、と面白かった。 他にもいろいろな文章をタグクラウド化できたら面白いのではないかと思ったりしたので、JavaScript で作ってみました。単語の分け方は単純に漢字とカタカナと英数字だけなので、かなりいい加減ですが。しかも、すべての単語を表示させているので多すぎる気もしますけど。 追記：単語数が50以上の場合は3回以上出現したものだけ表示させるようにしてみました。 例として入力されている文章は安倍内閣総理大臣所信表明演説です。作成ボタンを押すとタグクラウドが表示されます。 （はじめに） こ
タグクラウドの必要性についての是非はここでは置いておいて、このアイテムのデザインって色々考えさせられますね。 Vicuna CMSでも真面目に対応しようと重いケツを上げましたので、とりあえずサンプルとなるCSSスタイルを色々と書いてみました。 表示例とCSSファイルを置いておきましたので、気に入った表示があったらどうぞ使って下さい。 2007.10/21 追記・編集 Tag Cloud 10,11,12で.level5のフォントサイズが.level4と同じになってたのを修正 応用編としてTag Cloud 13を追加 単純に該当する記事が多いタグが他より目立てばいいだけなので、大抵のスタイルは大小の区別で表示しているけど、それだけじゃちょっと味気ない気もするので サイズ 色 明暗 彩度 色彩 形 というところでタグの強弱をより強調してみました。 HTMLは以下のような要素とクラス名で作って
日本の総理大臣の演説をタグクラウド化 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
PEAR :: PEPr :: Details :: HTML_TagCloud pearのProposalにタグクラウド生成用のライブラリが出ていました。 PerlのHTML-TagCloud-ExtendedをPHPに移植されたそうです。 その使い方とサンプルを紹介。 まず、インストール pear install http://catbot.net/src/HTML_TagCloud-0.0.1.tgz HTML_TagCloudのサンプルプログラム <?php require_once('HTML/TagCloud.php'); $obj = new HTML_TagCloud(); $obj->addElement('php', 'http://s.phpspot.org/tag/php', 10); $obj->addElement('css', 'http://s.phpspo
Shoma Suzuki [2006-07-19 17:33 UTC] based PHP5 syntax and E_STRICT compatible. replace useless double quotation to single quotation. modified CSS output, like flickr.com fixed bug. (the second argument of the constructor has no effect.) add example3, shows parameter override. Shoma Suzuki [2006-07-19 17:33 UTC] based PHP5 syntax and E_STRICT compatible. replace useless double quotation to single q
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
NAME HTML::TagCloud - Generate An HTML Tag Cloud SYNOPSIS # A cloud with tags that link to other web pages. my $cloud = HTML::TagCloud->new; $cloud->add($tag1, $url1, $count1); $cloud->add($tag2, $url2, $count2); $cloud->add($tag3, $url3, $count3); my $html = $cloud->html_and_css(50); # A cloud with tags that do not link to other web pages. my $cloud = HTML::TagCloud->new; $cloud->add_static($tag1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く