perl/zz.pl

   1 #!/usr/local/bin/perl
   2 use ExtUtils::testlib;
   3 use SSLeay;
   4
   5 $a=SSLeay::BN::dec2bn("12345678901234567890");
   6 $b=SSLeay::BN::dec2bn("98765432109876543210");
   7 print "a=$a\n";
   8 print "b=$b\n";
   9
  10 $n=$a*$b;
  11 $m=$n+"1223123235345634764534567889";
  12 $l=$m*88888888;
  13
  14 $r=$l/$b;
  15
  16 print "a=$a\n";
  17 print "b=$b\n";
  18 print "n=$n\n";
  19 print "m=$m\n";
  20 print "l=$l\n";
  21 print "r=$r\n";
  22