2006-12-25 :-|
_ 本心はだませない
すんません。
_ [ソフトウェア][坂村健][まつもとゆきひろ]ソフトウェア ジャパン2007 −社会を変えるイノベーション−
( via Matzにっき )
2007-01-25
申し込んだ。
以下名前くらいは知ってる方々。
- 坂村健
- まつもとゆきひろ
- 平鍋健児
- 萩原正義
- 榊原彰
- 小野和俊
_ [tDiary][タグクラウド][プラグイン]tDiary のタグクラウド表示プラグイン
置いてみた。
category_to_tagcloud.rb を tdiary/plugin におく。
tDiary 管理画面「ヘッダ・フッタ」に以下を書いておく。
<%= tag_list 10 %>
「おやつ」タグが大きいな...。
_ [Windows][マイクロソフト]Sysinternals Utilities: Miscellaneous
ごにょごにょと眺めてみたんだがマイクロソフトがなかなか面白いツールを書いている。この辺りに注目した。
- Ctrl2Cap v2.0 convert caps-lock characters into control characters
- DebugView for Windows v4.63 debug output on your local system
- Strings v2.30 Search for ANSI and UNICODE strings in binary images.
_ [2006年] 2006 年の参加イベント回数
数えてみたが 5 回だった。どこぞの店の方々のライブは省いた。
- 2006/01/28 交響組曲「 ドラゴンクエスト 8 」新春公演
- 2006/02/18 VOICES music from FINAL FANTASY
- 2006/08/11 第 20 回ファミリークラシックコンサート〜ドラゴンクエストの世界〜
- 2006/08/26 清田愛未 伊藤賢治コラボレーションライブ
- 2006/09/22 PRESS START 2006 -SYMPHONY OF GAMES-
見かけた方々と回数。
| 伊藤賢治 | 2 |
| すぎやまこういち | 2 |
| 植松伸夫 | 2 |
| 木村真紀 | 1 |
| 清田愛未 | 1 |
| 柴田徹也 | 1 |
| 窪田晴男 | 1 |
| 甲田雅人 | 1 |
| 野島一成 | 1 |
| アンジェラ・アキ | 1 |
| 酒井省吾 | 1 |
| 田中理恵 | 1 |
| 近藤浩治 | 1 |
| 大島ミチル | 1 |
| 桜井政博 | 1 |
| 白鳥英美子 | 1 |
| RIKKI | 1 |
| 糸井重里 | 1 |
| 増田いずみ | 1 |
_ 2006 年を代表する単語のタグクラウドを作ってみる
はてなキーワードを使って単語を抽出して [2006-12-19] 単語と出現数を使ってタグクラウドを作る。
ref.naoyaのはてなダイアリー - HTML::TagCloud
こんな tg2.pl を書く。
#!/usr/pkg/bin/perl -w
use strict;
use File::stat;
use File::Read;
use LWP::Simple;
use HTML::TagCloud;
if(@ARGV != 2){
print "usage: tg.pl TEXT YEAR\n";
print "e.g. tg.pl td2006.td2 2006\n";
exit;
}
our $CacheDir = "kwcache";
mkdir $CacheDir, 0755 unless -e $CacheDir;
my $kwlist = 'http://d.hatena.ne.jp/images/keyword/keywordlist';
my $cache = "./$CacheDir/keywordlist";
LWP::Simple::mirror($kwlist, $cache);
my $list = read_file($cache);
my $text = read_file($ARGV[0]);
my $year = $ARGV[1];
my %keywords;
while($text =~ m/($list)/g) {
$keywords{$1}++ if defined($1);
}
my $cloud = HTML::TagCloud->new;
my $key;
my $enword;
foreach $key (keys %keywords) {
$enword = $key;
$enword =~ s/(\W)/sprintf("%%%x",ord($1))/ge;
$cloud->add($key,
"http://www.area51.gr.jp/~rin/diary/?category=$enword;year=$year",
$keywords{$key})
}
print <<EOS;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<HTML>
<HEAD>
<TITLE>Tag Cloud</TITLE>
</HEAD>
<BODY>
EOS
print $cloud->html_and_css(200);
print <<EOS;
</BODY>
</HTML>
EOS
HTML::TagCloud を入れる。
% sudo perl -MCPAN -e shell cpan> install HTML::TagCloud
tDiary のテキストを集める。
% find ~/diary/2006/ -name "*.td2" | while read file; do cat $file >> td2006;done
実行。
% ./tg2.pl td2006 2006
出来たタグクラウド。URI が多いようだ。
.jp
.jpg
.net
:-)
BSD
Ba
Dat
E3
ER
FF
Firefox
Gmail
Google
IRC
Las
ML
Ma
Mod
NetBSD
OS
Plagger
Referer
Se
Vi
Wiki
Windows
ac
ad
ak
am
amazon
ap
area
art
as
ati
au
ba
bl
blog
bo
br
bu
ca
cc
cd
cgi
cl
co.jp
cod
da
dir
dns
ea
ed
ef
er
es
et
etc
ex
fN
fe
fr
ge
gi
google
gr
gs
hatena
hiki
hive
ho
html
http
http://
ic
id
ie
il
index
inf
ins
ip
ja
ken
lib
livedoor
lo
ls
ma
mac
mag
mai
make
mg
mi
mixi
mm
mo
ms
na
nal
name
ne.jp
nf
ng
nt
ny
oC
ob
oc
od
oi
ol
op
ort
orz
ot
perl
php
pk
plagger
png
pos
ppc
pr
pu
ra
rc
rg
ri
rin
rma
ry
se
sh
sr
src
st
su
sud
ta
tm
ts
ua
ui
ul
un
ur
user
vI
via
war
web
wiki
wikipedia
ws
www
おやつ
たま
みわ
イベント
インストール
ケータイ
ゲーム
コード
ストレス
スパゲティ
ソフトウェア
タスク
ドール
ブログ
プロジェクト
メール
ライブ
意味
引用
音楽
画像
海里
茅ヶ崎
寒川
環境
韓国
技術
言葉
今日
最近
仕事
子供
時間
自転車
重要
情報
人間
川崎
通勤
電車
日記
_ [結城浩][チラシの裏]王様の耳はロバの耳
不平不満はいんたーねっとに書くんじゃなくてチラシの裏に書いて捨てちまえ [2006-10-29] ということで設置してみた。
結城浩さんのネタを貰ったのだけど、文字を書いてボタンを押しても 何もしない。書いた文章は /dev/null 行き。もっぱらヲレ用。グチグチ書きたくなったら日記じゃなくてここに書き捨てる。愚痴なんて ChangeLog メモに書いたとしてもあとで読んだら憂鬱になるので書かない。
ref. 王様の耳はロバの耳
>ハッピーホリデイは「ハッホリ」であるか。<br><br>たぶん「ハピホリ」と略すと思うｗ
＞さいきくん<br>来年からは「メリクリ」ではなくて「ハピホリ」だぜ！<br><br><br><br>まあ、言わないだろうな....