わたなべです.

Wyvern of Wyvern <wyvern / pb3.so-net.ne.jp> writes:

:やりたいことは、 perl で書くと以下のようなことです。
:わからないのは $array{$page[1]}++; のカウントと、%array のソート。あたり。

array[page[1]] ||= 0
array[page[1]] += 1

array.keys.sort! {|a,b| page[b] <=> page[a]}

-- 
わたなべひろふみ

#!/usr/local/bin/ruby hit = {} while gets page = File.dirname(split('"')[1].split(' ')[1]) hit[page] ||= 0 hit[page] += 1 end # hit page report. cnt = 0 print <<EOM hit : Directory ----------------------------------------- EOM for name in hit.keys.sort! {|a,b| hit[b] <=> hit[a]} cnt += 1 printf(" %5d : %8d : %s\n", cnt, hit[name] , name) end