exp/pad_bench.pl

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use Benchmark ;
   7
   8 my $len = 10 ;
   9 use constant LEN => 10 ;
  10 my $text = 'abc' ;
  11
  12 my $pad = "\0" x $len ;
  13
  14 timethese( shift || -2, {
  15
  16                 or => '$text | $pad',
  17                 xor => '$text ^ $pad',
  18                 padx => '$text . ("\0" x ( $len - length( $text ) ) )',
  19                 pad_substr => 'substr( $text . ("\0" x $len), 0, $len )',
  20                 pad_substr3 => 'substr( "$text$pad", 0, $len )',
  21                 padx2 => '$text . ("\0" x ( LEN - length( $text ) ) )',
  22                 pad_substr2 => 'substr( $text . ("\0" x LEN), 0, LEN )',
  23         }
  24 ) ;