Help for this page

Select Code to Download


  1. or download this
    use Config;
use Math::BigInt;
...
        | ( [$range] [0-9]{$len1} )
            (?(?{ Math::BigInt->new($^N)->bgt($max) })(*F))
    ) \z }x };
  2. or download this
    use warnings;
use strict;
...
unlike "999999999999999999999999999999999999", $regex;

done_testing;
  3. or download this
    #!/usr/bin/env perl
use warnings;
...
          Rate  first second
first   4403/s     --   -70%
second 14902/s   238%     --