Re^2: Collapsing a string to unique characters

[dwhite20899]

oshalla,

too nice, you beat me to it. Considering I'm going to be doing this for 100 million strings, that's great to know.

[BrowserUk]

If speed is your need, then compare this:

sub buk_s {
    my @c;
    $c[ $_ ] = $_ for unpack 'C*', $_[ 0 ];
    pack 'C*', grep defined, @c;
}