nDiki : Java

Perl インストール Linux Eclipse 開発 日本語 C++ メモ Ant XML HTML ソフトウェア Web JAR GanttProject sid Naney インストーラ ソースコード Debian GNU/Linux コーディング規約 JUnit Ruby build.xml HTTP ビルド ガントチャート UTF-8 インデント幅 URL

■ Java をやっておけばしばらくは食いっぱぐれない?

開発者不足なので派遣とかを検討。

リクエストとして「Java でプログラムが書けること」と伝えたら、どこも不足気味で売り手市場だとのこと。 とりあえず Java の経験積んでおけば、最悪派遣登録でやっていけるってことか(もちろんその他のスキルも身につけておく必要があるだろうけど)。

• 私的10大ニュース2004 [ comp ] (2004-12-31)
• Module::Build でソースパッケージング (2005-08-24)
• SQLite とか DbUnit とか (2005-05-23)
• GanttProject で開発スケジュールを作成 (2004-08-26)
• 後輩と一緒にプログラミング (2005-06-17)

■ Module::Build でソースパッケージング

@ ExtUtils::MakeMaker

私が Perl が好きな理由の一つに、標準でExtUtils::MakeMakerという Makefile ジェネレータがついているところである。これを使って Makefile.PL を書くと

 perl Makefile.PL
 make manifest
 make
 make test
 make dist

で <pacakge>-<versionno>.tar.gz というソースパッケージを作ることができ、

 tar zxvf <pacakge>-<versionno>.tar.gz
 cd <pacakge>-<versionno>
 perl Makefile.PL
 make
 make test
 make install

という手順でインストールする事ができるようになる。 パッケージの作り方が確立されているので、容易に新しいパッケージを開発しはじめられる。

逆に Java でプログラムを書くのが億劫なのは、このあたりの準備が面倒だからである。 Ant を使っても結局ここら辺自分でやらなければならないし。

@ ちょっとしたアーカイブの作成

ちょっとしたパッケージを作りたいと思うことは良くある。 例えばいくつかのデータファイルと、READMEファイルなんかをひとまとめにしてアーカイブにするとか。

本当にちょっとしたであれば、手動でアーカイブすれば良いのだが、

• アーカイブしたいファイル群がバージョン管理下にあって、CVS ディレクトリや .svn ディレクトリがある (除外してアーカイブする必要がある)
• 同じディレクトリにある、作業用のファイルはアーカイブしたくない (除外してアーカイブする必要がある)
• アーカイブする前に、チェック用のリグレッションテスト一式を走らせたい (リグレッションテストをかけられるようにする)
• UNIX でも Windows でもアーカイブ化できるようにしたい。

あたりを考慮しなければならない時は面倒くさくなってくる。

自動化としては

• シェルスクリプト/バッチファイルを書く
• Makefile を書く
• GNU Autotools を使う

あたりがぱっと思い浮かぶ。 しかし、最初の2つは毎回同じようなものを書くのが面倒だし保守もしにくい。 GNU Autotools はちょっとごっつすぎだし、Windows での環境構築も面倒。

@ ExtUtils::MakeMaker の欠点

ということで最初は ExtUtils::MakeMaker を使うという線で考えてみた。 もともと Perl モジュール用で汎用用途にはちょっと邪魔な振舞いもあるが、使えないことはないと思う。 しかし make (GNU Make あるいは nmake など) に依存しているという欠点がある。

@ Module::Build で

ということで ExtUtils::MakeMaker の代替である Module::Build ベースで汎用用途に使えないか検討してみた。こちらは pure Perl で make を必要としない。

Module::Build も Perl モジュールビルドにあわせた振舞いがあるものの、ちょっとカスタマイズすれば使えそうだ。 で、いろいろいじった結果、次のような感じにすると使いやすそうだ。

 use Module::Build;
 my $class = Module::Build
   ->subclass(class => 'NonmoduleBuilder',
              code => q{
                        # Don't make blib
                        sub ACTION_code {};
                        # Don't make blib
                        sub ACTION_docs {};
                        # Don't make META.yml
                        sub ACTION_distmeta {
                          # no warning on ACTION_distdir
                          $_[0]->{metafile} = 'MANIFEST';
                        };
                        # Don't add MEATA.yml to MANIFEST
                        sub ACTION_manifest {
                          $_[0]->{metafile} = 'MANIFEST',
                          $_[0]->SUPER::ACTION_manifest(@_);
                        };
                       });

 # Set your archive name and version.
 $class->new(dist_name => 'mypackage',
             dist_version => '1.0.2',
             )->create_build_script;

カスタマイズした部分は以下(Module::Build 0.26 で動作確認)。

• Perl モジュールビルドに特有の blib ディレクトリを作らないようにする。
• META.yml を生成しないようにし、アーカイブに含まれないようにする。

上記のようなファイルを Build.PL という名前で作っておけば

 perl Build.PL
 ./Build manifest
 ./Build
 ./Build test
 ./Build dist

等として、アーカイブ作成が容易にできるようになる。

しばらくこの方法でいろいろ試してみることにしてみよう。

• SCons は GNU Autotools のかわりになるか (2005-04-20)
• ActivePerl で Ming (2005-02-23)
• nmake で毎回 pl2bat されるのを何とかしたい (2004-11-25)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)

■ J2SE 5.0 の総称と拡張 for ループをはじめて使う

ここしばらく Java であまりコードを書いていなかったし、書いたとしても 1.4 用で書いていたのでずっと新しい言語機能を使っていなかった。

コレクション関係のサンプルコードを書いて人に渡す必要があったので、generics、for-each 構造をやっと使ってみた。 なるほど楽ちん。

• skkinput がよく落ちるので uim-skk に乗り換え (2005-09-22)
• JAlbum で Webフォトアルバム (2004-11-14)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• Debian (不安定) (2005-02-03)
• サブプロジェクトが使える GTD ツール ThinkingRock 2.0.1 (2008-06-23)

■ skkinput がよく落ちるので uim-skk に乗り換え

メインのノート PC (Debian GNU/Linux sid)では XIMサーバとして skkinput を使っているのだが Firefox で入力をしていると、Firefox を道連れによく落ちてしまう。 何かの登録のためにフォーム入力していたり、WikiPage の編集をしているときに落ちてしまうとかなり辛い。

ということで遅ればせながら uim を試してみることにした。

@ インストール

ほぼ「Japanese - Debian GNU/Linux スレッドテンプレ」の通りに設定。

SKK用の辞書などは既にはいっているので

 apt-get install uim uim-skk

として uim 関連のファイルをインストール。

~/.xinitrc の skkinput 関連の部分をコメントアウトして、

 if type uim-xim &> /dev/null ; then
   uim-xim &
 fi
 XMODIFIERS=@im=uim ; export XMODIFIERS
 GTK_IM_MODULE=uim ; export GTK_IM_MODULE
 UIM_IM_ENGINE=skk ; export UIM_IM_ENGINE

を追記。

これで Firefox でも問題なく uim-skk で日本語入力ができた。

@ ツールバー

Window Manager 用システムトレイとして docker を使っているので、uim-toolbar-gtk-systray を使う。

 uim-toolbar-gtk-systray &

@ Emacs 用に設定を変更

初期状態だと C-j でも uim-skk がオンになる。 これだと Emacs を使っている時によろしくない。

uim-skk の方は Shift-space でトグルすればよいので、uim-pref-gtk 上の 「SKKキー設定1」の「モード遷移 - [SKK]オン」から Control-j を外しておいた。

@ 追記

@ Java アプリケーションでの入力。

J2SE (1.5.0_04) 上で日本語入力ができないのに気がつく。

~/.Xdefaults に

 *inputMethod: uim

を追加して入力できるように対応 (2005年9月24日追記)

• CUPS で Debian から EPSON カラーレーザプリンタへ印刷 ... (2006-01-04)
• Mozex を使って Firefox 1.5.0.1 の textarea... (2006-02-18)
• Linux 母艦ノート PC を使わずに仕事ができるかチャレンジ (2007-08-20)
• 納品前日なのに /var が壊れた! HDDからのブートで Debian ... (2005-09-27)
• Windows でも Linux でも動くタスク管理ツール Task Coach (2006-01-12)

■ 久しぶりに build.xml を書く

ソフトウェアのレビュー日。 最近ミーティングの調整やドキュメントの作成などばかりで、ソースコードに触れる機会がほとんどなかったので Eclipse なんか入れちゃったりしてウキウキ。

……あれ? ビルドまだ自動化してないの? いや、普通まず最初にビルド自動化しておくでしょ。configure.ac とか Makefile.am とか Makefile とか Makefile.PL とか Build.PL とか書いちゃうでしょ。 Java ならまあ build.xml とか書いとくでしょ。 make dist (相当が)できるようなターゲット書いておくでしょ。

……無いのね。Eclipse でぬくぬく書いてるのね。コード書いている間はいいよ。 でもね、節目のビルドはね、そういうのでやってね。ビルドファイルの含めているソースアーカイブもコマンド一発で作れるようにしておいてね。

はい。では、書きますよ。今回は私が。 次はちゃんと書いてね。

• Module::Build でソースパッケージング (2005-08-24)
• 「プロジェクトマネジメント」はどうやって勉強すれば良いですか? (2006-11-22)
• 今日のさえずり - 爺さんがゴツい爺ショックケータイ持っているとカッコイイ (2009-02-05)
• assertion (2004-05-16)
• [ Perl ] PDL::PP で C extension を書く (2004-02-19)

■ 今日のさえずり - スーツに着た回数を記録する仕組みが欲しい

• 10:27 明日の浜松出張確定。
• 11:05 @lynmock P3 2.19 on Debian GNU/Linux sid です。Java(TM) SE Runtime Environment (build 1.6.0_03-b05)
• 11:13 P3 2.21 にアップデートして起動。
• 14:36 クリスマスケーキ行列の中。[mb]
• 15:16 ニッコールクラブきた。[mb]
• 15:30 アトレ大井町2008年1月28日から改装。3月中旬リニューアルオープン予定。[mb]
• 16:36 クリーニングに出す目安用に、スーツに着た回数を記録する仕組みが欲しい。あるいは不潔インジケータ。[mb]

• 今日のさえずり - 醤油系じゃないものが食べたい (2009-01-04)
• 今日のさえずり - オフィスで最初に WBC の結果を口に出した人がサボリーマン (2009-03-24)
• 今日のさえずり - 港区出身者とはニコニコ学園ネタで盛りあがる (2008-06-24)
• Twitter ベイジアンフィルタプロキシ (2007-12-29)
• 今日のさえずり - ブリスターパックの安全な開け方知りたい (2008-12-15)

■ Twitter ベイジアンフィルタプロキシ

Twitter で following が増えてくるにつれて、タイムラインに目を通すのが大変になってきた(という程きちんと見ている訳ではないが)。 さっとタイムラインをなめて面白そうな情報をピックアップしたい時は、「おはよう」とか「風呂入った」とか「トイレ」とかは除外して読みたい(そういう書き込み自体は嫌いじゃないのだが、人生はあまりにも短い)。

Twit や P3:PeraPeraPrv では NG ワード指定ができて、それらを含むステータスは表示しないようにできるのだが、Twitter の書き込みは揺らぎが激しすぎて指定しきれないという弱点がる。

ということでベイジアンフィルタでフィルタリングしてみることにした。

自前で Twitter クライアントを作る気はないので、proxy の形でさっと実装してみた。

 #!/usr/bin/perl

 use strict;
 use warnings;

 use HTTP::Proxy;
 use HTTP::Proxy::BodyFilter::complete;

 my $proxy = HTTP::Proxy->new(port => 8088);
 $proxy->push_filter(response => HTTP::Proxy::BodyFilter::complete->new,
                     mime     => 'application/xml');
 $proxy->push_filter(response => Bsfilter->new,
                     mime     => 'application/xml');
 $proxy->start;

 {

   package Bsfilter;

   use File::Temp qw/tempfile/;
   use XML::XPath;
   use base qw(HTTP::Proxy::BodyFilter);

   sub filter {
     my ($self, $dataref, $message, $protocol, $buffer) = @_;
     return unless defined($$dataref) && $$dataref ne '';
     eval {
       my $xml = XML::XPath->new(xml => $$dataref);
       my @nodes = $xml->findnodes('/statuses/status/text/text()');
       return unless @nodes;
       for my $node (@nodes) {
         my $text = $node->getNodeValue;
         if (is_NG($text)) {
           $node->setNodeValue("[NG] $text");
         }
       }
       $$dataref = qq(<?xml version="1.0" encoding="UTF-8"?>\n);
       $$dataref .= $xml->get_context->toString;
       utf8::encode($$dataref);
     };
     if ($@) {
       warn $@;
     }
   }

   sub will_modify { 1 }

   sub is_NG {
     my ($text) = @_;

     my ($fh, $filename) = tempfile();
     utf8::encode($text);
     print $fh $text;
     close($fh);
     my $result
       = system(
       "bsfilter --homedir ~/.twitter-bsfilter --ignore-header --auto-update $filename"
       );
     unlink($filename);

     return !$result;
   }
 }

@ HTTP proxy の作成

Perl で HTTP proxy を作ろうとして真っ先に思い浮かんだのは POE だけれど、ちょっとヘビーなので今回は HTTP::Proxy をチョイス。 もともとフィルタリング HTTP proxy を作ることを念頭に置いた Perl モジュールなので今回の目的にぴったり。

1つはまった点といえば、filter の呼び出しがレスポンス全てを取得してからではなく一部分ずつの呼び出しになるところ。その仕様に気がつくのにちょっと時間がかかってしまった。 例えば XML 形式のレスポンスをフィルタしようとしても、普通に HTTP::Proxy を使うと XML の一部ずつがフィルタに渡されるため、XML のパースがうまくいかない。

これについては HTTP::Proxy::BodyFilter::complete を使うことで、まとめてフィルタに渡せるようになった。

@ レスポンスの処理

Twitter のタイムライン取得については P3:PeraPeraPrv が XML 形式で取得しているので、そのタイプのレスポンスをフィルタするようにした。

XML::XPath でステータス部分を抜き出して NG 判定し、NG であれば先頭に [NG] を追加する。 これで Twitter クライアント側で [NG] を NG ワード指定すれば、表示されないようにすることができる。

@ bsfilter による NG 判定

NG 判定は普段メールの spam フィルタとして使っている bsfilter を使った。 単純に system 関数で呼び出して結果を取得するだけ。

今回は対象がメールではないので --ignore-header を指定。また自動的に学習するように --auto-update を指定。 それと普段メールのフィルタリングに使っているのとは bsfilter のデータベースを別にしたいので、--homedir も指定しておく。

@ NG と非 NG の学習。

NG ワードを twitter-NG.txt に、非 NG ワードを twitter-clean.txt に書いて以下のコマンドを実行。

 bsfilter --add-clean --ignore-header --homedir ~/.twitter-bsfilter twitter-clean.txt
 bsfilter --add-spam --ignore-header --homedir ~/.twitter-bsfilter twitter-NG.txt
 bsfilter --update --homedir ~/.twitter-bsfilter

自分の環境 (Debian GNU/Linux sid)では、UTF-8 で書いておいて問題なかった。

@ フィルタリングしてみる

あとは先の proxy を起動し、P3:PeraPeraPrv でプロキシとして localhost:8088 を指定すれば OK。

タイムラインを取得するたびに bsfilter が動いて NG なステータスには [NG] が挿入される。

@ フィルタリングの精度

これについては、まだまだチューンの必要ありかな。

• 事前の学習データが少ない。
• --auto-update していることもあり、最初に NG 判定が多いとそちら側に強化されすぎる。
• 毎回 bsfilter を呼んでいるため、同じステータスが何度も学習される。

まだ使える精度まで上がってないけれど、教師データを増やせばそれなりにいけるかもしれない。

proxy の枠組ができたので、(@～は抜いてから bsfilter に渡すとか、前後の文脈も含めるとか)いろいろ試して遊べそうではある。 別に bsfilter にこだわらず、正規表現による判定などをしてもよいし。

この辺り P3 は Java で書かれているので、プラグインを書いて拡張できるよう将来になると面白いなと思ってみたり。

この記事が気にいったら twitter.com/Naney の follower になってください。

• Plagger で Twitter のあれこれをメールで通知 (2008-12-25)
• reStructuredText いいんじゃない? (2005-11-22)
• ColdSync (2004-05-05)
• 今日のさえずり - 鳩三郎が会社にきた (2008-09-25)
• メールボックスを Gmail に集約 (2007-08-08)

■ サブプロジェクトが使える GTD ツール ThinkingRock 2.0.1

Task Coach で GTD しているうちに、もっとスマートにできるツールがないかなと探して出会ったのがこれ。

• Java で書かれており、Linux でも使える。
• サブプロジェクトを作ってブレイクダウンしていける。

というのがイケてる。Web ベースの GTD ツールも多いが、ThinkingRock は普通のアプリケーションなのでインストールも簡単。RDBMS 等のセットアップも不要であり、すぐに使える。

GTD の流れを知っていればマニュアルをほとんど見なくても自然に使うことできる。 今日ダウンロードして使い始めたのだが、すぐに ThinkingRock ベースで GTD のプロセスをまわせるようになって驚いた。

GTD をしていて欲しいと思っていたプロジェクトテンプレートも作っておける。 チェックリスト的なプロジェクトを登録しておいて、必要な時にプロジェクトにコピーして使うような運用ができるようだ。

これホントいいんじゃない?

今後は

• 仕事 -> ThinkingRock
• リピートするアクション -> RTM (ThinkingRock にはリピートがない)
• 外出先でチェックするアクション(買い物など) -> RTM (ThinkingRock はケータイで見られない)
• プライベート -> 手帳 (PC とは離れたプロジェクトが多い。一部は ThinkingRock にのせてもいいかもしれない。)

という形でまわしてみようと思う。

• http://www.thinkingrock.com.au/

• Evernote 使用開始 (2009-03-03)
• Task Coach で GTD (2008-06-23)
• 2008年夏の GTD 運用ツール (2008-07-23)
• 今日のさえずり - RTM 上でプライベートと仕事についてタグで分けることにした (2007-11-21)
• 今日のさえずり - オフィスで最初に WBC の結果を口に出した人がサボリーマン (2009-03-24)

■ 久しぶりの C++ は GNU Automake + CppUnit で

ちょっとした文字列構文解析関係の C++ コードを書き始めた。 C++ は随分触ってなかったので「C++ で書き直すのを考慮してそれっぽく Perl で書くから後で書き直して」と最初は言っておいたのだが、それもあんまりだと思って C++ で書くことにした。

Debian GNU/Linux 上で書くので GNU Automake + CppUnit で。 「Perl + Test::Harness」や「Java + Eclipse + JUnit」や「C# + Visual C# + NUnit」などと比べるとやっぱりタルいな。

1つメソッド書くのに、

• テストメソッドの宣言
• テストメソッドの登録 (CPPUNIT_TEST())
• テストメソッドの実装
• メソッドの宣言
• メソッドの実装

と 4ファイル5カ所編集しなければならない。 クラス追加時には Makefile.am にヘッダファイルとソースファイルをテストケース用のと含めて4ファイル書き加える必要があるし。

あー面倒。

でも C++ で書き始めると楽しいんだよなあ。

• 今日のさえずり - 会議室から「サクラ大戦」とか (2009-03-13)
• ハッシュとは (2004-06-09)
• 今日のさえずり - 京都の小学校のコンピュータ室にいったら、Squeak が (2008-03-06)
• Eclipse 3.0M8 (2004-04-19)
• 「○○についてのお薦めの本、ありますか?」 (2006-06-27)

■ 今日のさえずり - オフィスで最初に WBC の結果を口に出した人がサボリーマン

@ 2009年03月23日

• 09:28 桜サク。風ツヨイ。 http://movapic.com/...
• 09:47 なぜ新橋の「ふわ丸」看板が上下逆になっているか知りたい。そういうデザインかと思ったら、芝の方では正位置で貼ってあった。 [mb]
• 09:55 山手線外回りホームに上がるエスカレーター混雑... http://movapic.com/...
• 10:34 3月29日、アトレ大井町2Fにパティスリーエ カフェ ア・ラ・カンパーニュ アトレ大井町店オープン。他のアトレの後追いか。 *P3
• 12:05 あ、耳が痛い(肉体的に)。 *P3
• 13:07 桜サク。風ツヨイ。 [Flickr] http://tinyurl.com/djlgq7
• 15:00 「そば饅頭」が巡回してきたがスルーした(そばアレルギーね)。 *P3
• 17:38 Poken って「ポーケン」っていうのか。ポークンだと思ってた。 *P3
• 19:08 Skype チャットで /htmlhistory して、Evernote Web Clipper で Evernote へ。 *P3
• 19:09 Skype for Linux 2.0.0.72 では /htmlhistory 使えなかった。 *P3
• 19:20 会社を出た。ドラッグストア閉店前に着けるかギリギリのところ。 [mb]
• 19:22 サラリーマンがパセラの食品サンプルに興奮している。L:秋葉原 [mb]
• 19:54 ドラッグストア 20:00 までだと思っていたが 21:00 までだった。 [mb]
• 22:58 Debian GNU/Linux sid の Iceweasel で LogMeIn また接続できるようになった。一時期駄目だったのは何だったんだろ。Java のバージョンか何かかなあ。 *P3
• 23:42 自宅用 ThinkPad X32 の Windows XP Professional を SP3 にようやく更新。 *P3
• 23:43 間違えた。ThinkPad X31。 *P3
• 23:59 Windows XP Professional SP3 インストールほうっておいて風呂。 *P3
• 24:23 風呂あがった。まだインストール中。 *P3
• 24:56 SP3 のアップデート中に C ドライブの空きディスク領域が 63MB になっている。 *P3

@ 2009年03月24日

• 12:05 ニッコールクラブ年会費支払い完了。継続した。 [mb]
• 12:13 PENTAX K20D チタンカラープレミアムキットって、チタンカラーなだけでチタンじゃないよね、きっと。 *P3
• 12:15 営業が WBC をスピーカーで鳴らして帰ってきたので耳栓。 *P3
• 12:19 DropboxPortable か。最強だな。 *P3
• 12:32 SKK の問題点は、SKK がない環境でストレスが爆発するところ。 *P3
• 12:39 @woopsdez SKK 指になると、MS-IME とかイラっとしますよねぇ。 *P3
• 13:05 将棋ボクシング? 何? *P3
• 14:40 オフィスで最初に WBC の結果を口に出した人がサボリーマン。 *P3
• 15:54 後ろの人が電話で「ピング」って言ってる。 *P3
• 15:57 心の中では「ping」を「ピング」と読んでしまうけれど、口にするときは「ピン」と言うように頑張っている。 *P3
• 20:23 会社出た。ヨドバシカメラ寄ってみる。L:東京都千代田区神田佐久間町3 [mb]
• 20:43 ヨドバシカメラで文房具調達完了。WBC V2 セールはデジカメ指定商品3%引きとか。 [mb]
• 20:54 太陽の塔のケータイストラップ付けている人発見。あれいいな。 [mb]
• 22:51 @yamakiyo 太陽の塔ストラップ、同じ駅で降りて登りエスカレーターの前に乗ったのでじっくり見られた。黄金の顔が無かったような。 *P3
• 24:26 4月になることだし、同僚の午後の紅茶消費量をログりたい。 *P3
• 24:38 @yamakiyo 「ミニチュア太陽の塔」がいいな。15cm。 http://www.taromuseum.jp/... *P3
• 24:41 世代的にいうと、太陽の塔よりもコスモ星丸。 *P3

• 今日のさえずり - 除虫菊を栽培していただきます (2008-08-05)
• 今日のさえずり - 餞別用意したけど最終日の今日来なかった (2009-06-15)
• 今日のさえずり - 上げ潮特大号 (2008-09-18)
• 今日のさえずえり - ツレってヨメの事だと思っていたが違うらしい (2008-12-18)
• 今日のさえずり - 100g 減る前にアタック買いだめ (2008-05-28)