06/10/10 02:32:23 7iQBprVO0
perlの値が、どうもおかしいと思い調べていたら、ちゃんと文字列の切り出しが
出来てきませんでした。
UTF-8でやったから？んな事ないよね。
正規表現を全部展開してテストしてみた。
郵便番号から半角カナ文字列までの切り出し。改行しないのでターミナルが暫く固まる場合があります。
perl -pe "s/^([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,)([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+)$/¥1/; print '¥n'" <KEN_ALL.CSV
都道府県から改行までの切り出し。
perl -pe "s/^([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,)([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+)$/¥2/;" <KEN_ALL.CSV
どちらも私の環境で、7秒でした。