2010-01-01から1ヶ月間の記事一覧

URI::QueryParamで特定のキーだけ取って来る

長いパラメーターのついたURLをキレイにしたい。が、そのためだけにCGIモジュールを入れるのもアレだし、自前で実装するのもスマートではないし・・・と思って調べてみると、URI::QueryParam というモジュールがあるみたい。URI::QueryParam - Additional qu…

Cygwin & UTF-8 windows filename etc

どうやらWindowsはファイル名にUTF-8を使うようになったらしく、最近*1Cygwin周りの挙動が色々変わって困る。ファイル名に関係ない、マウント関連の挙動も変わってる感じなのでまとめる。 /etc/fstab 昔はmountコマンドはレジストリーに設定を保存していたは…

今日は最高の日だ

twitterってすごいよなあ。記念に残しておこう。こんなすごいことをリアルタイムで経験できたことに感謝。 tanakarie あぅ・・行くべきかな・・悩む(><) 2010-01-1909:51:48 link tanakarie 行ってみようかな・・・返信無かったらどうしようーー(><)…

再びテスト

昔「はてなブックマークウィジェット」と言われてたアレ。 はてなブックマークブログパーツ ブログパーツってblog全体のデザインとアンマッチになるような - XXXannex <script language="javascript" type="text/javascript" src="http://b.hatena.ne.jp/js/widget.js" charset="utf-8"></script> <script language="javascript" type="text/javascript"> Hatena.BookmarkWidget.url = "http://d.h…

2009年声優言及数 作業メモ 反省会(1)

今回は例年になく反応が大きかったので、色々と考えさせられることが多かった。改善案としていくつか考えたので、忘れないうちにまとめておく。 スコア計算を言及数ベースではなく順位ベースにする そもそも、言及数をそのまま使っているからおかしなことに…

2009年声優言及数 作業メモ(6) データの解析

グラフの集計もようやく終わったので、ここからが楽しいデータ解析とRの時間。2008年声優言及数 作業メモ(4) データの解析 - XXXannex 2008年声優言及数 作業メモ(4) データの解析 の続き - XXXannexこの辺を参考にしつつ進める・・・のだけど、今読ん…

2009年声優言及数 作業メモ(7) データの解析 つづき

R

解析が終わったので、グラフを書くことに。せっかくなので、今年は噂のggplot2を使ってみようかと。こちらのサイトなどを参考にしつつ、公式のリファレンスに載ってるサンプルを片っ端から試していけば何となく使い方は理解できました。 http://had.co.nz/gg…

Minibuffer のカスタマイズ

意外と忘れるのでメモ。 http://userscripts.org/scripts/show/11759 C-vを無効にする クリップボードの貼り付けをしたいときに、C-vが取られてると鬱陶しいのでコメントアウトする。Minibufferのソースを直接書き換えるのは微妙な気がするけど・・・。 // '…

2009年声優言及数 作業メモ(5) 言及数グラフデータを集計

参考: 2008年声優言及数 作業メモ(3) 言及数グラフデータを集計 - XXXannex今年もやっぱりボーダーは濃いグレー(#333333)でした。 $ pngcheck -pv %E9%AB%98%E5%9E%A3%E5%BD%A9%E9%99%BD_2009-12-31_364.png File: %E9%AB%98%E5%9E%A3%E5%BD%A9%E9%99%B…

2009年声優言及数 作業メモ(4) 言及数グラフデータを取得

去年の作業を参考にしつつ。 2008年声優言及数 作業メモ(2) 言及数グラフデータを取得 - XXXannex 前に書いた通り、キーワードのエンコーディング方式を指定できるので、その辺はちょっと楽になってるかも。まあ、コーディング上は大して変わってないけど…

自分の日記で声優さんへの言及数を調べる

こないだ作ったリストを使って、自分の日記から声優さんの言及数を調べる。 use strict; use warnings; my $list = shift; my $export = shift; my $fh; open $fh, '<', $list or die; my @sylist = map{(split(/\t/))[0]} <$fh>; close $fh; my $re = eval …