共同ローカリゼーションフレームワーク

翻訳・ローカライズ

2006年度下期未踏ユースに応募した「共同ローカリゼーションフレームワーク」という提案が採択されました。詳しい内容はこちらのWebサイトに載せていく予定です。

上記リンク先のサイトに，IPAに提出した提案書（とプレゼン資料）をそのまま公開しているので，詳しい内容はそちらの方を見れば分かります。簡単に要約すると，「このプロジェクトはオープンソースのローカリゼーション支援Webシステムの開発を目指すものです。様々なローカリゼーションや翻訳のプロジェクトにおいて， UbuntuのRosettaや MozillaのBabelZillaなどの代替システム――ただし，自分たちでインストールできるシステム――となることを目指しています。」という感じになります。

ぼちぼちがんばりますので，応援のほどよろしくお願いします。

Pugs で Perl 6 入門 (3)

Perl 6

前回の記事から久しく時間が空いてしまいました。

前回ではPugsを使ってプログラムを動作させる方法を学びました。今回はPerl 6プログラムの書き始めですので，Perlらしくまずはファイルの入出力を取り扱うことにしましょう。

まず，試しに以下の readafile.pl を打ち込んで pugs readafile.pl と実行してみてください（ファイル名が違うと動きません）。readafile.pl のソースコードが画面に表示されたはずです。これはファイルを読み込んで出力するプログラムで，カレントディレクトリ内の "readafile.pl" というファイルの中身を表示します。

readafile.pl

#! pugs
use v6;

# ファイルを読み込みモード (read mode) で開く
my $in = open "readafile.pl";

# 一行ずつ読み込んで変数 $line に代入する
for =$in -> $line {
  # 末尾に改行をつけて変数 $line を出力する
  $line.say;
}

# ファイルを閉じる
close $in;

簡単な説明はコメントで書いていますが，それぞれ少し詳しく見ていきましょう。おっと，コメントの書き方をまだ説明していませんでした。# 記号を書くと，その行はそれ以降はコメントとみなされ，実行されません。Perl 6には様々なコメントの記法がありますが，たいていの場合は # で十分です。

ファイルのオープン

ファイルの中身を出力する手順は，

  1. ファイルをオープンする
  2. ファイルの中身を読み込む
  3. 読み込んだ文字列を出力する
  4. ファイルをクローズする

ですね。まずはファイルのオープンを見てみましょう。

ファイルのオープンは次のコードで行っています。

# ファイルを読み込みモード (read mode) で開く
my $in = open "readafile.pl";

まず，「my $in」を説明する必要がありますね。これは変数の宣言です。変数を使う際には必ず宣言をしなければなりません*1。

my というのは正確には「レキシカルスコープを持つ変数の宣言」を意味するキーワードですが，単純に「変数を宣言するときは my を付ける」と覚えておけばOKです。それから $in という感じで識別子の前に $ 記号が付いていますね。Perlでは変数の前に記号（sigilと呼ばれています）が付き，一種の型を表しています。ただし型といっても，int型やdouble型というのではなくて，$scalar は1つの値を保持する変数（スカラー変数），@array は配列（リスト）を保持する変数（順序配列），&code は関数などを保持する変数という意味での型です*2。int型やstring型といった区別はないので，Perlの変数には数値や文字列などいろいろなものを代入することができます*3。

open はファイルをオープンする関数で，引数としてファイル名のみを与えた場合，読み込みモード (read mode) でそのファイルを開きます。ファイルのオープンに成功すればファイルハンドルが返されます。ここでは，そのファイルハンドルを変数 $in に代入しています。

ファイルの中身を読み込んで出力する

ファイルの中身を読み込んで，さらにその文字列を出力する作業は次のコードで行っています。

# 一行ずつ読み込んで変数 $line に代入する
for =$in -> $line {
  # 末尾に改行をつけて変数 $line を出力する
  $line.say;
}

for 文はいわゆる foreach 文と呼ばれるもので，配列（リスト）から要素を一つずつ取ってきて処理する場合に使います。右矢印の後に変数名を書くと，その後のコードブロック（クロージャと呼ばれます）内でその変数を使って配列から取ってきた値にアクセスすることができます。例えば，

for 1, 2, 3 -> $num {
  $num.say;
}

とすると

1
2
3

と出力されます。これは，よくイテレータと呼ばれている仕組みです。ここではファイルの中身を一行ずつ取ってきて処理しようとしているのですが，処理したいものが単なるリスト（配列）でない場合，=$in という感じで変数名の前に = 演算子を置くことでイテレータとして扱うことができます。

for 文の中にある $line.say は $line の中身を改行を付けて出力しています。読み込んだものをそのまま改行を付けて出力すれば「改行が余分に多く付くのではないか？」と思いますが，Perl 6では入力はデフォルトでchompされる（末尾の改行を取り除くことはchompと呼ばれています）ので，$lineの最後には改行が付いていないので自分で改行を付けてあげないといけません。もし改行を付けたくない場合は print を使ってください。

なお，$line.say という記法を見て分かるとおり，sayは関数ではなくメソッドです。この場合は，文字列クラスのメソッドとなっています（これらはオブジェクト指向の用語ですが，分からない方はそういうものだと思って読み飛ばしていただいて構いません）。$line という変数には型がありませんが，データ自体に型があるので，ここらへんはよきに計らってくれるのです。もしメソッドが気に食わない場合は，同名の関数も提供されているので say $line というように記述しても動作します。

ファイルのクローズ

ファイルのクローズは次のコードで行っています。

# ファイルを閉じる
close $in;

close は与えられたファイルハンドルを閉じます。そのままですね。いちおう成功すれば真 (True) が返りますが，ここでは特に利用しないので戻り値は捨てています。

今回はここまで。次回はこれを発展させて自家製 cat コマンドを作ってみることにしましょう。

*1:Perl 5では標準では変数の宣言を行わずに変数を使うことができました。Perl 6では標準でPerl 5 における use strict; が有効になっていると考えられます。

*2:Rubyのようにスコープを表すわけではありません。

*3:Perl 6では変数を型付けする機能が導入されており，必要であれば my Num $number のように型を付けて変数を宣言することができるようになります。

太古の地球は音楽に満ちていた

その他

一昨日「のだめカンタービレ」を読んだ。指揮者を目指す天才青年「千秋」と美しいピアノソナタを奏でる変人女性「のだめ」が織り成す物語だ。音楽を通じて惹かれあう人たちを描いた物語だ。

僕は今日から「歌うネアンデルタール―音楽と言語から見るヒトの進化」という本を読み始めた（やっと1章を読み終わったところだ）。著者スティーブン・ミズンの主張は明快で，音楽を楽しむ我々の祖先の一部が言語を獲得し，やがて今の僕たちへと進化したという仮説だ。信じられるかい？

声楽家で声楽発声の教育者であったフレデリック・フースラーは，1965年に出版された著書「うたうこと 発声器官の肉体的特質―歌声のひみつを解くかぎ」の中で，音声生理学的，解剖学的な見地から「おそらく，人間は原始時代に，きわめて長い期間，歌声に恵まれていた――中略――その歌声をもっていたのは，人間が話すことができるようになったときよりもずっと以前のことである」と述べている。

最近音楽に関するヒトの脳科学研究の論文を調べている。音楽を処理する脳の構造を丹念に調べる作業だ。ここ3〜4年，どうやらそのような論文の数が急増している。ドイツのマックスプランク研究所の研究者たちは，音楽と言語の関連性について，例えば「言語の文法」や「音楽の文法」がいつどのような脳の領域で処理されているのかを研究している。日本の岡ノ谷助教授は，ジュウシマツという小鳥が文法を持った歌を歌うという研究成果から，人類も文法を持った歌から言語が派生してきたのではないか，という仮説を立てている。

最も重要な点は，男が女を愛するように，女が男を愛するように，人が音楽を愛するのは自然なこと，そういうことだろう。全てはそこから始まっていく――チョムスキーが投げかけた波紋のように――そう思うのは気のせいだろうか。

ジョンケージの「4分33秒」を聴いた。無音の音楽。その4分33秒の演奏の間，楽器は何一つ奏でられない。僕は，千秋が指揮し，のだめがピアノの前に座っている姿を想像した。無から聞こえてくる音は何だろう。ヒトはどこから来てどこに行こうとしているのだろう。

単純なSPF問題はいずこ？

ACM/ICPC

「ACM/ICPC国内予選突破の手引き」を大幅に更新しました。ここ3年間ほどの国内予選などで出題された問題を，簡単な問題から順次解説を載せていっています。ただいま23問。2週間前は20問くらいしか載せないとか言っていましたが，意外と揃ってきてしまいました。これからは平面幾何やグラフ問題を揃えていく予定です。

ところで，日本の国内予選やOB/OGの模擬国内予選を見渡しても「単純な最短経路を見つける問題（SPF問題）」が見つかりません。つまりダイクストラ一発書いて終わり，というもの。MST (Minimum Spanning Tree)なんかは単純なものがあるんですが，SPFは変形ダイクストラだったり単純なダイクストラを何発か重ねて使うような問題だったり。練習用には単純なものがあればいいなぁと思うんですが，どなたかPKUなりなんなりで落ちてるところを知りませんか？最短時間（最小費用）を求めるだけのでも，その経路も出力しろというものでも構いません。情報求ム。

まぁ，なければ自分で作りますが...

Emacsキーバインディング

その他

oxyさんがEmacsバインディングでプログラムを書いていたときの手の動きが楽そうだったのでMeadow3と窓使いの憂鬱をインストールしてみました。

.emacs はとりあえず C-h をバックスペースに置き換えるだけで，後は窓使いの憂鬱に任せてみる。といってもCapsLockをCtrlにするくらいだけれど。こんな感じの .mayu で：

include "109.mayu"

keymap Global

mod control += 英数
key *英数 = *LControl

key A-↑ = PageUp
key A-↓ = PageDown
key A-← = Home
key A-→ = End

「Alt+矢印キー」は本当はLet'snoteみたく「Fn＋矢印キー」にしたかったのだけれど，いい方法が見つからなかったのでこれで（これはEmacsとは関係ないですが，まぁHome/End/PageUp/PageDown類は遠いのが嫌な点は共通してますね）。

正月はしばし Emacs キーバインディングと戯れてみることにしよう。