in reply to Re^4: Why this code is so slow if run in thread?
in thread Why this code is so slow if run in thread?

But then simple solution will be to, first, get a substring, and only then decode it

Okay, great. But I don't understand how decoding utf16le works on the data returned by cc8compt() which contains 4-byte integers? 3 * width * height of them?

Ie. a 10x10 image that looks like this (. is white * is black):

..........
.*.******.
.*........
.*.*.****.
.*.*......
.*.*.****.
.*.*.*....
.*.*.*....
.*.*.*....
..........

[download]

Comes back from cc8compt()->get_dataref as a 1200 byte string (10*10*4*3), and contains three identical copies of the 'color map' that looks like this when unpacked as 'V*'

0:0:0:0:0:0:0:0:0:0
0:1:0:2:2:2:2:2:2:0
0:1:0:0:0:0:0:0:0:0
0:1:0:3:0:4:4:4:4:0
0:1:0:3:0:0:0:0:0:0
0:1:0:3:0:5:5:5:5:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:0:0:0:0:0:0:0:0:0
0:0:0:0:0:0:0:0:0:0
0:1:0:2:2:2:2:2:2:0
0:1:0:0:0:0:0:0:0:0
0:1:0:3:0:4:4:4:4:0
0:1:0:3:0:0:0:0:0:0
0:1:0:3:0:5:5:5:5:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:0:0:0:0:0:0:0:0:0
0:0:0:0:0:0:0:0:0:0
0:1:0:2:2:2:2:2:2:0
0:1:0:0:0:0:0:0:0:0
0:1:0:3:0:4:4:4:4:0
0:1:0:3:0:0:0:0:0:0
0:1:0:3:0:5:5:5:5:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:1:0:3:0:5:0:0:0:0
0:0:0:0:0:0:0:0:0:0

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
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". The enemy of (IT) success is complexity.
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^6: Why this code is so slow if run in thread?
by vr (Curate) on Dec 12, 2016 at 12:11 UTC

    It looks like data format of original piddle determines data format of return values:

    pdl> p $x = short sequence 3,4

[
 [ 0  1  2]
 [ 3  4  5]
 [ 6  7  8]
 [ 9 10 11]
]


pdl> p $y = cc8compt $x > 5

[
 [0 0 0]
 [0 0 0]
 [1 1 1]
 [1 1 1]
]


pdl> p $y-> info
PDL: Short D [3,4]

pdl> p length ${ $y-> get_dataref }
24

    [download]
[reply]
[d/l]
      It looks like data format of original piddle determines data format of return values:

      Okay. So the image must be returned as unsigned longs? And all the red pixels, then the green, then the blue?

      If so, how does your decoding with utf16le work?

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      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". The enemy of (IT) success is complexity.
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
        No-no, images are grayscale (actually, the sample image I posted is 1 bit per pixel, but real application deals with 8 bpp grayscale images). Number of "things" or "objects" will be small enough for "short" integer to count them.
[reply]

In Section Seekers of Perl Wisdom