この前新サーバ用に購入したDELL SC-440をいろいろパワーアップした。 メモリ 512MB→ Transcend TS128MLQ72V6J ×4 余った512はSC-430へ。 ハードディスク 80GB→80GB＋Hitachi/IBM HDP725050GLA360(500GB) SATAケーブル SANWA SUPPLY TK-SATA-05BLL サウンド…

同じデータベースの違うテーブルでプライマリキーを重複させたくない場合や、 クラスタ化した場合とかで AUTO_INCREMENT が使えない場合。いわゆる採番テーブルってやつ。 DBICとかで sub nextval { my $self = shift; my $dbh = $self->result_source->stor…

UTF-8 の範囲外の文字かどうか、どうやって判別したらいいのだろう - @kyanny's blog こんなんでどうでしょうか。 check_utf8.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; while (<>) { eval { decode_utf8($_, Encode::FB_CROAK); }; …

http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-dev/33947 $ /usr/local/ruby-1.9.0-1/bin/ruby -e 'puts Encoding.list'ASCII-8BIT UTF-8 US-ASCII Big5 CP949 EUC-JP EUC-KR EUC-TW GB18030 GBK ISO-8859-1 ISO-8859-2 ISO-8859-3 ISO-8859-4 IS…

Software Design (ソフトウエア デザイン) 2008年 03月号 [雑誌]posted with amazlet on 08.02.28技術評論社 (2008/02/18)Amazon.co.jp で詳細を見る友人のid:clonedさんが記事を書いたと聞いて。 すべてがFになる―THE PERFECT INSIDER (講談社文庫)posted w…

そういえば、TinySegmenterをJavaで実装してLuceneのTokenizerを書けばLuceneで使えるかもね。実装は比較的ラクだと思う。 今のところLuceneを使う予定はない。ので究極暇になったら作るかも。

http://search.cpan.org/dist/Text-TinySegmenter/ TinySegmenterをPerlに移植した。 PurePerlでシンプルにさくっと分かち書き。 use utf8; use Text::TinySegmenter; my $str = '私の名前は中野です'; my @words = Text::TinySegmenter->segment($str); # g…

最近のお気に入りVimプラグインはsnippetsEmu.vimなんだけど、色々といじってる割に晒してなかったのでいまさらながら晒してみる。 動作画面はこんなかんじ。http://spiritloose.googlepages.com/catalyst_snippets.htm(TTYShareはなぜかうまく再生されなか…

UPSとかいうレベルじゃない。同じ筐体で2回目。うーん焦げ臭い。電源がずいぶんうるさくなってきたなぁと思ってたところに・・・ 呪われてる筐体だなぁ。まぁ6年もつかってりゃ2回ぐらい飛ぶかぁ。 いや、飛ばんだろ。この筐体でディスクが飛んだことはない…

日本はすばらしいなぁ。

CodeReposのアカウントをいただけたので、コミットした。http://coderepos.org/share/changeset/4356 use Senna; use Senna::Constants qw(SEN_CTX_USEQL); my $db = Senna::DB->open(path => '/path/to/senna.db'); my $ctx = Senna::Ctx->open(db => $db, …

あけましてどうも。 年末からインフルですが。毎年年末年始は倒れてるなぁ。