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

[0439 デフォルトの名無しさん 2018/10/06(土) 00:22:39.61 ID:mGKg2bAW]

Ruby で作った

require 'csv'

count = Hash.new( 0 ) # 初期値は、0

# コロン区切りのCSV 入力ファイルを、1行ずつ処理する
CSV.foreach( "input.csv" ) do |row|
count[ row[ 0 ] ] += 1
row[ 1 ] = count[ row[ 0 ] ]

puts row.join( "," )
end