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

Question

如何在perl中将点分数转换为粗俗分数？任何例子/模块？

Answer 1

看看Math::Fraction。

use strict;
use warnings;

use Math::Fraction;

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

<强>输出

1/2

Answer 2

除了Borodin提到的Math :: Fraction之外，还有Number::Fraction。这两个在perl中重载的漂亮例子。如果你想更多地了解它并且可能自己实现类似的东西，那就是a good introduction to overloading at perl.com