わたなべです.

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