File: example3.pl

package info (click to toggle)
librdf-closure-perl 0.001-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 2,584 kB
  • sloc: perl: 46,925; makefile: 7; sh: 1
file content (17 lines) | stat: -rw-r--r-- 305 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Number::Fraction;

my $n = 12.48;
my $N = _decimalToRational($n);
print "$N\n";

sub _decimalToRational
{
	my ($d) = @_;
	
	my ($whole, $part) = split /\./, $d;
	
	my $numerator   = $whole.$part;
	my $denominator = '1'.('0' x length $part);
	
	return Number::Fraction->new($numerator, $denominator);
}