Perl and CSV
CSV 形式の文字列を配列に分割する むかし日経MIXの awk 会議室で、CSV 形式の文字列を配列に分割するスクリプトが議論されていた。 それを perl で書くと、次のようなものだった。 sub splitcsv { local($csvstr) = @_; $csvstr .= ','; $csvstr =~ s/("([^"]|"")*"|[^,]*),/$1$;/g; $csvstr =~ s/"([^$;]*)"$;/$1$;/g; $csvstr =~ s/""/"/g; return split(/$;/, $csvstr); } ちょっと複雑でわかりにくいが、 $; という perl の特殊変数を使っていることに注目するとよい。 これは、「多次元配列のエミュレーションに用いる添え字セパレータ」[ウォールほか 1997 (1996): 150] である。 フィールドの区切
テキスト処理のお手伝い
以下は、興味ある人のための読み物です。 テキスト処理とは テキスト処理という言葉には何通りかの意味があります。細かい意味はともかく、 コンピュータの世界で 通常次の二つに分けられるでしょう。 １．人間が読み書きする文書（テキスト）を処理する ワープロやＤＴＰソフトも通常人間が 読み書きする文書を処理するので、Wordや一太郎を使うことも この意味でのテキスト処理に含まれます。 ２．コンピュータの世界でのテキスト（テキストファイル）を処理する テキストファイルというのは難しい概念ですが、 特徴として ＯＳやアーキテクチャが異なるコンピュータでも処理できる。 テキストエディタで読み書きできる。 という点が挙げられます。 ワープロで作成したファイル、たとえばWordで作成したDocファイル は、Word がインストールされていない他のパソコンや、 Unix やlinux のＯＳで動いているシステ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://ja.doukaku.org/77/nested/
