Re^3: Count byte/character occurrence (1/4)

would something with a for loop and substr be faster? I dont necessarily have to unpack any bytes, do I?

That requires a call into C (substr) for every byte; where using unpack requires a single call for the entire string.

The cardinal rule for optimising Perl code, is to get perl's built-ins to do as much of the work as you can.

Using this loop:

    ++$seen[ ord chop $buf ] while length $buf;
[download]

in place of the unpack loop is almost but not quite as fast.

It trades 2 built-in calls per byte, against the cost of building the unpack return list on the stack, and loses by a hair.

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". I knew I was on the right track :)

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

Comment on Re^3: Count byte/character occurrence (1/4) Download Code