如何将点分数转换为粗俗分数？

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