The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env ruby
# cd t && ./scale.rb > scale.spec

require 'rubygems'
gem 'activesupport'
require 'activesupport'

[
'byte',
'kilobyte',
'megabyte',
'gigabyte',
'terabyte',
'petabyte',
'exabyte',
].each do |m|
  ep = "2->#{m}"
  er = "2.#{m}.to_i"
  printf "=== %s\n--- input: %s\n--- expected: %d\n\n", m, ep, eval(er)

  m = m+'s'
  ep = "3->#{m}"
  er = "3.#{m}.to_i"
  printf "=== %s\n--- input: %s\n--- expected: %d\n\n", m, ep, eval(er)
end