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] である。 フィールドの区切
PerlでCSVファイルをソートする方法
PerlでCSVファイルをソートする方法について、サンプルプログラムを使って説明します。 ASHのホームページで公開しているスクリプトの著作権はASHにあります。 スクリプトの利用や改造は、非商用、商用にかかわらず自由です。 ただし、利用される場合は、ASHへのリンク、ASHに対するカンパ、ASHに対する仕事の依頼などをお願いします。 ASHではスクリプトの作成も行っています。 CSVファイルのソート処理スクリプト Perlのsort関数を使って、CSVファイルのソートを行います。 Perlのsort関数は、ソートサブルーチンを指定できますので、この機能を使います。 CSVデータの任意の項目をソートキーとしてソートします。 キーの数は、無制限ですので、2次キーや3次キーを指定することもできます。 ソート方法は、各キー毎に、昇順ソートと降順ソートができます。 また、文字列ソートと数字ソートが
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.affrc.go.jp/ja/rss/csv2rss.html
