レス数が950を超えています。1000を超えると表示できなくなるよ。

くだらない質問はここに書き込め！Ver.なんでもアリ

879 ：名無しさん＠お腹いっぱい。 ：2001/07/23(月) 19:33

ふふふ、Perl で苦戦しとるな。
Ruby なら 5 分で書けるぞよ。

#!/usr/local/bin/ruby

key = 1 # column number
a = Array.new
i = 1
while line = gets
a.push ([i] + line.split)
i += 1
end

a.sort! do |x,y|
if x[key] == y[key]
x[0] <=> y[0]
else
x[key] <=> y[key]
end
end

a.each { |e| puts e[1..-1].join(' ') }

read.cgi ver5.26+ (01/10/21-)