Perl初心者スレ（マジレス回答）

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

440: デフォルトの名無しさん [sage] 2018/10/06(土)02:20 ID:m3dYH3N7(1)
考え方は >>439 と同じ

perl -pe "s/^([^,]+,)[^,]+/$1.++$count{$1}/e" < sample.csv