free as in air

2007|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|09|11|12|
2012|03|04|05|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|03|04|06|09|
トップ «前の日(10-06) 最新 次の日(10-08)» /追記

2007-10-07 この日を編集

§ [//] 自重

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

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

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

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


2008-10-07 この日を編集

§ [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;、とか。

本日のツッコミ(全4件) [ツッコミを入れる]

<< きむら(K) [とりあえず3.は真です。 スクリプトを見ないと断言できない部分がありますが、 パイプ経由でデータを取ってきたときと@..]

<< kuwa1 [PerlはActivePerl 5.10.0 build 1003で、スクリプトはこんなです。 use encod..]

<< きむら(K) [はい。use encoding 'cp932' では、<>で読み込むストリームに対して影響を及ぼしません。 use ..]

<< kuwa1 [ありがとうございます。 かなり理解が深まったと思います。]