06/10/10 02:46:28 7iQBprVO0
>>31
>郵便番号から半角カナ文字列までの切り出し。改行しないのでターミナルが暫く固まる場合があります。
>perl -pe "s/^([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,)([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+)$/¥1/; print '¥n'" <KEN_ALL.CSV
よけいなprint文が入っていました。訂正します。
perl -pe "s/^([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,)([^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+,[^,]+)$/¥1/;" <KEN_ALL.CSV