[ruby-list:39574] rational.rb で String#to_r

あくつです。
rational.rb で String#to_r の定義希望です。

class String
  def to_r
    num=0; den=1
    tmp=self.sub(/^\s+/,'')
    if /^\d+/ =~ tmp
      num = $&.to_i
      if %r!^\d+\s*/\s*(\d+)! =~ tmp
        den = $1.to_i  
      else
        if /^\d+\.\d+/ =~ tmp
          den = 10**( $&.length - 1 - $&.index(".") )        
          tmp.sub!(/\./,'')
          num = tmp.to_i
        end
        if /^\d+[Ee]([-+]?\d+)/ =~ tmp
          den = den.div(10**($1.to_i))
          tmp.sub!(/[Ee][-+]?\d+/, '')
          num = tmp.to_i
        end
      end
    end
    Rational(num, den)
  end
end