TSabc 発言

sugiです。

はっ、いかん。
Ruby が置いてかれちゃう。

とりあえず、閑舎さんの Perl 版をパクっとこう。
# って、ぉぃぉぃ。(^^;;

--^ index.rb
#! ruby

# 使用法: ruby index.rb 作成元データ[ENTER]

tbl={}
while gets
  if /^(\d+)\s+(.+)/
    tbl[$2]=(tbl[$2]) ? "#{tbl[$2]},#{$1}" : $1
  end
end
tbl.sort.each{|e,f| printf("%-20s ... %s\n",e,f)}
--$

--
sugi