fork download
  1. #!/usr/bin/perl
  2. use v5.10;
  3. use Math::BigRat;
  4.  
  5. my $a = Math::BigRat->new( '1_000_000_000_000_000_000' );
  6. my $b = Math::BigRat->new( '10_000_000_000_000_000_000' );
  7. my $q = $a / $b;
  8.  
  9. say $q; # prints 1/10
Success #stdin #stdout 0.09s 15716KB
stdin
Standard input is empty
stdout
1/10