「オーシャンズ」タイアップイベント

　イベントそのものはセビリアで魚を1匹ずつ納品するだけなのですが、これが意外と大変です。

1. ピラルクなど割とレアなものがある
2. ランクによっては釣れない魚もある
3. 何を納品したか管理する機能がゲーム上にはない
4. 輸送中にネズミに食われたり燃える可能性がある

といったところでしょうか?

　何でも80種以上納品できるらしく、3が地味に効いてきます。なので、ツールを...... とか思ったんですが、面倒なのでPerlとかでリストアップすればいいような気がしてきました。

perl -nle '/これは(.*)だ！　ありがたい。助かるよ(<BR>)?、(<BR>)?/ and print $1' ログファイルのパス

こんな感じのワンライナーで抽出できます。今回、重複納品できないのでuniqしなくていいのが楽ですね。「ありがたい」の前のスペースは全角なので、コピペがいいかと思います。
　ちょっとはまったのは、「オーシャンズ」に出てくる魚とそうでない魚で句点の位置が違っていたことでしょうか。「オーシャンズ」に出てくる魚の場合は改行後に句点が現れるという日本語表記ではあり得ないことになっていたので少しはまってしまいました。

　上記のワンライナーを実行すると

こんな感じで納品した魚の一覧ができます。一応、Mac(Snow Leopard)標準添付のPerlと自前コンパイルしたLinux上の5.8.8で確認済みです。