Pyon's Diary

成る可くJIS X 0213:2004對應MSフォント(5.0)、IPAフォント(003.01)で御覽下さい

2004-02-25 舊平成拾陸年如月陸日 (晴) [長年日記]

世の中には三種類の人間がゐる。

バカとアホとマヌケ。

Tags: None |

| Permalink

牡蠣。

けふは、さとう先生と、きみ先生と飲みに行く豫定だつたのだが、さとう先生が牡蠣に中つて仕舞つたので中止。御大事に。

Tags: None |

| Permalink

Perl Excel 形式の CSV ファイルを讀込む。

いつも忘れるので書留めて措く。

CPAN*1 からモジュールを持つて來れば良いのだらうけど、何となくまんどくさ。

(2005-07-14 追記) 上の頁がゐなくなったら厭なので Excel 形式の CSV を讀込む處理を此處に書留めて置く。但し Emacs とか Vim とかで着色が變に成ら無い樣に二重引用符は \x22 に飼へた。

Perl メモ(http://www.din.or.jp/~ohzaki/perl.htm#CSVwithCRLF)より抜萃
# 値に改行コードを含む CSV 形式を扱う
while (my $line = <DATA>) {
    $line .= <DATA> while ($line =~ tr/\x22// % 2 and !eof(DATA));
    $line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
    @values = map {/^\x22(.*)\x22$/s ? scalar($_ = $1, s/\x22\x22/\x22/g, $_) : $_} ($line =~ /(\x22[^\x22]*(?:\x22\x22[^\x22]*)*\x22|[^,]*),/g);
    # 
    # @values を処理する
    #
}

Tags: Programming |

| Permalink

*1 2005-07-14 リンク修正