9 use constant LEN => 10 ;
12 my $pad = "\0" x $len ;
14 timethese( shift || -2, {
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 )',