Как конвертировать точечная дробь в обыкновенную?

Question

Как преобразовать точечную дробь в обыкновенную дробь в perl? Какие-нибудь примеры / модули?

Answer 1

Взгляните на Math :: Fraction .

use strict;
use warnings;

use Math::Fraction;

my $frac = frac(.666);
print $frac * frac(3/4);

OUTPUT

1/2

Answer 2

Существует также Number :: Fraction в дополнение к Math :: Fraction, о которой говорил Бородин. Оба прекрасных примера перегрузки в perl. Если вы хотите больше узнать об этом и, возможно, реализовать что-то подобное самостоятельно, есть хорошее представление о перегрузке на на perl.com