kdmsnr

#############################################
### misc/standalone_cgi/bin/server
#############################################
kdmsnr:~# ab -n 100 -c 10 http://127.0.0.1:19292/index.rb
This is ApacheBench, Version 2.3 <$Revision: 655654 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/

Benchmarking 127.0.0.1 (be patient).....done

kdmsnr

# -*- coding: utf-8 -*-
numbers = [100, 100000500, 123456789]
numbers.each do |number|
  scales = ["", "万", "億", "兆"]
  puts number.to_s.gsub(/(\d)(?=(\d\d\d\d)+(?!\d))/, "\\1,").split(',').reverse.inject("") {|result, item|
    scale = scales.shift
    item = item.to_i.to_s.gsub(/(\d)(?=(?:\d\d\d)+(?!\d))/, '\1,')
    result = item + scale + result unless item == "0"
    result
  } + '円'