Re^2: Interleaving bytes in a string quickly

Yes, that was an unfortunate choice of example. In the real thing, it isn't a null byte. Nice lateral thinking though!

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^2: Interleaving bytes in a string quickly

Replies are listed 'Best First'.
Re^3: Interleaving bytes in a string quickly by jmcnamara (Monsignor) on Feb 26, 2010 at 15:09 UTC
Then maybe something like this. It should still be ~25 faster than the original for the general case: `sub interleave { my $str = shift; my $filler = 64; # Char number. my $hi_bytes = pack 'v', unpack 'C', $str; my $lo_bytes = pack 'n*', ($filler) x length $str; return $hi_bytes \| $lo_bytes; }` [download] -- John.	[reply] [d/l]
Re^4: Interleaving bytes in a string quickly by salva (Canon) on Feb 26, 2010 at 15:27 UTC
this variation... `$s = time; $out4 = (pack 'v', unpack 'C', $buf) \| ("\x00$filler" x length $buf) +; print time() - $s, "\n";` [download] ... introduces very low overhead.	[reply] [d/l]