SICP読書会に行ってきました。
前回は[2007-01-31-1]でした。

今回は赤坂のサイボウズラ某所でした。久しぶりです。
いつもありがとうございます。



ええと、今回はサンプルコードを動かすことができませんでした。
しょんぼり。
復習をかねてなんとか2.4以降のコードを動くようにしたいと思います。

SICP Reading's Wiki
- http://www.csus4.net/hiki/SICPReading/

■計算機プログラムの構造と解釈


そういえば、AERAをちらっとみせて頂きました。SNSの話など。

リストマニアとは？という解説ページを作ってみた。
リストマニャ (Listmanya) 用に。

リストマニアとは？
http://lm.yasazon.com/whats-listmania.html
(1) ユーザが自分のオススメ商品リストを作成できる
(2) それをアマゾンのサイトで公開できる
(3) ゆえに、みんながお奨めできる商品が集まったデータベースと言える

自戒を込めた自分用メモ。
基本レベルの話だろうけど、はずかしながらちょっとはまってたので。

test.pl :

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
while (<>) {
    print if (/[ぁ-ん]/);
}

というコードを書いた。

しかし、

test.pl < utf8.txt

は行けるが、

test.pl utf8.txt

はだめ。

で、こうした。

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
binmode STDOUT, ":utf8";
while (<>) {
    $_ = Encode::decode('utf-8', $_);
    print if (/[ぁ-ん]/);
}

追記070208: 下記でOKとのことです。

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
use open ':utf8';
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
while (<>) {
    print if (/[ぁ-ん]/);
}

ありがとうございました。
- 404 Blog Not Found:perl - PerlIO vs. <>
  http://blog.livedoor.jp/dankogai/archives/50759241.html
- odz buffer - それ use open
  http://d.hatena.ne.jp/odz/20070207/1170867141