Help for this page

Select Code to Download

Select or download this

use File::Spec;
open my $zap, ">", File::Spec->devnull or die "open failed: $!";
...
                  print $zap $x if length $x;
                },
}

Select or download this

$ aperl nullout.pl
        Rate every  tens
...
        Rate every  tens
every 1479/s    --  -54%
tens  3226/s  118%    --