Help for this page

Select Code to Download


  1. or download this
      'table' => 'use strict; my $a = rot13($data),"\n"',
  'tr'    => 'use strict; my $a = rot13tr($data),"\n"',
  2. or download this
    Benchmark: running table, tr, each for at least 3 CPU seconds...
     table:  4 wallclock secs ( 3.13 usr +  0.00 sys =  3.13 CPU) @ 33
+1.84/s (n=1040)
...
         Rate  table     tr
table   332/s     --   -99%
tr    65433/s 19618%     --
  3. or download this
    #!/usr/bin/perl
use strict;
...
Morbi vestibulum, metus eu auctor vulputate, nulla lectus condimentum
nisi, ac pulvinar ligula nunc in felis. Curabitur id orci ac est
luctus molestie.