WinChalow

Statistical Language Modeling Toolkit
http://svr-www.eng.cam.ac.uk/~prc14/toolkit.html
昔からおなじみの枯れたキット。Cで書かれているので高速だが、要コンパイル。

Pure Perl版:
http://search.cpan.org/~btmcinnes/Text-Positional-Ngram-0.3/Ngram.pm
コーパスが小さければこれの方が使いやすいかもしれないのだが、実際に使ってみたらCPANで☆がゼロというのを納得。ドキュメントがわけわからず。仕様も妙。一応ちゃんと動いてはいるが…
(2005-01-06 16:46:02)

サブディレクトリーを全部さらって処理をしたいとき、昔の人はUNIXのfindを使っていたらしい。使ったことはあるが、シンタックスを直ぐ忘れるので困る。

perl coreのFile::Findというのもあるが、使いやすいとはいえない。

こういうことはもうやめよう。

そんなときに便利なモジュールが File::Find::Ruleだ。

use File::Find::Rule;

# recursively find all perl scripts
my $directory = '.';
my @subdirs = File::Find::Rule
			->file
			->name('*.pl')
			->in( $directory );
map {print $_, "\n"} @subdirs;

ナイス・グッドラップ。
ppmがあるのでwindowsでも使える。
(2005-01-06 11:38:25)