Re^39: Interleaving bytes in a string quickly

Replies are listed 'Best First'.

Re^40: Interleaving bytes in a string quickly
by BrowserUk (Patriarch) on Mar 02, 2010 at 12:25 UTC

If you regard the fact that you can currently get away with passing silly numbers to chr, as a feature, then every other operation that you can apply to a string, contains a bug. That's lots of bugs.

At best, you've describe a terminally broken feature. More likely, simply a bug.

And along the way, wasted a lot of people's time in the process. By drip-feeding obscure hints and innuendos, instead of posting a simple, clear explanation of what you were alluding to.

Do not bother replying further, because I'm not interested in your games anymore.

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.

"I'd rather go naked than blow up my ass"

[reply]

Re^41: Interleaving bytes in a string quickly

by ikegami (Patriarch) on Mar 02, 2010 at 23:45 UTC

then every other operation that you can apply to a string, contains a bug. That's lots of bugs.

Not even close to every other.

chomp	works
chop	Doesn't work (returns undef and changes nothing)
chr	works
index	works
lc	works
lcfirst	works
length	works
m//	works
ord	works
qq//	works
reverse	works
rindex	works
s///	works
sprintf	works
substr	works
tr///	works
uc	works
ucfirst	works
.	works
Hash key	works

By your definition /\N{}/ and /i aren't features since they can segfault Perl and return bad values for all ops that use the regex engine.

Update: Oops, chomp does work. Fixed.

[reply]

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:43 UTC

$a = join '', map ord, 65536, 65, 2**32, 65, 2**48, 65;;

print length $a;;
12
[download]

[reply]
[d/l]

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 02:00 UTC

$a=''; $a.=chr 1<<$_ for 0 .. 63;;

print ord unpack 'x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U] U1', $a;;
48
[download]

[reply]
[d/l]

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:17 UTC

use Data::Dumper;;
$a=''; $a .= chr 1<<$_ for 0 .. 63;;
print Dumper $a;;
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xfe) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
Malformed UTF-8 character (byte 0xff) in subroutine entry at C:/Perl64
+/lib/Data/Dumper.pm line 190, <STDIN> line 18.
$VAR1 = "&#9786;&#9658; \@\x{80}\x{100}\x{200}\x{400}\x{800}\x{1000}\x
+{2000}\x{4000}\x{8000}\x{10000}\x{20000}\x{40000}\x{80000}\x{100000}\
+x{200000}\x{400000}\x{800000}\x{1000000}\x{2000000}\x{4000000}\x{8000
+000}\x{10000000}\x{20000000}\x{40000000}
[download]

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.

"I'd rather go naked than blow up my ass"

[reply]
[d/l]

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:27 UTC

use String::LCSS_XS qw[ lcss ];;

$a=''; $a .= chr 1<<$_ for 0 .. 63;;

print lcss( substr( $a, 10, 10 ), $a );;
����������������ǭ��ǭ��Ǳ���&#8215;��� 0 13
[download]

[reply]
[d/l]

Re^43: Interleaving bytes in a string quickly

by ikegami (Patriarch) on Mar 03, 2010 at 00:45 UTC

Re^44: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:58 UTC

Some notes below your chosen depth have not been shown here

Re^44: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 01:47 UTC

Some notes below your chosen depth have not been shown here

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:18 UTC

use Data::Dump qw[ pp ];;
pp $a;;
[Malformed UTF-8 character (fatal) at C:/Perl64/lib/Data/Dump.pm line 
+458, <STDIN> line 20.
[download]

[reply]
[d/l]

Re^42: Interleaving bytes in a string quickly

by BrowserUk (Patriarch) on Mar 03, 2010 at 00:11 UTC

length works
reverse works

Funny definition of "works":

$a=''; $a .= chr 1<<$_ for 0 .. 63;;

print length $a;;
64

$a = reverse $a;;
Malformed UTF-8 character (byte 0xfe) in reverse

print length $a;;
75
[download]

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.

"I'd rather go naked than blow up my ass"

[reply]
[d/l]

Re^43: Interleaving bytes in a string quickly

by ikegami (Patriarch) on Mar 03, 2010 at 00:15 UTC