free as in air

§ [//] 自重

　無理だけど。天性の頭の悪さを如何なく発揮してしまう。

　今日は兎に角藁の山と格闘する日。爪と肉がちょびっと分かれ気味でちょびっと痛い。

§ [tag] AMDとIntelをノートPCで比較

　Turion64X2はCore2Duoに比べてもっそい遅いらしい。ややショック。

§ [perl] ハイフンだけの行で区切る件

　件って何だよ。

　ちょっと考えたけど、これだけか。@list = $str =~ m/(.*?)(?:\n-+\n)/gs;

　なんか、gnuwin32のcatでファイルをまとめてから受け取ったときと、perlの引数としてファイル名を指定したときの動作が違う。cat経由だとMalformed UTF-8 character (unexpected continuation byte 0xa2, with no preceding start byte) in pattern match (m//) at ..

\perl\splitfaqs.pl line 4, <> line 545.とか出る。

1. catかgnuwin32が腐っている。
2. Windowsのパイプが腐っている。
3. PerlはSTDINとFile IOの動作が違う。

どれか。

　むしろ、文字コード周り＝腐海なので、黙ってUTF-8で統一するのが大人のマナー。Shift_JIS、森へお帰り。

　追記:いや、片手落ち。テキストの末尾が取得できないな。後から$'で取るか、でなきゃ、@list = $str =~ m/(.*?)(?:\n-+\n|\z)/gs;、とか。