There is currently no easy way to mark data read from a file or other external source as being utf8.

So adding broken unicode-support in a way rendered Perl unusable for external string input. Great! Now we have realy great and fast programming language that can handle text very well, but not if the text has unicode and the utf8 pragma has not been used.

Is the moral of this story: "don't just always use strict, always use utf8 too"?

sub byte_length {
    # depends on bugs
    no utf8;
    my ($string) = @_;
    my $counter;
    $counter++ while $string =~ s/.//s;
    return $counter;
}

sub has_multibytes {
    my ($string) = @_;
    return length($string) != byte_length($string);
}
[download]

Alternatives for these subs are welcome, of course.

Lbh ebgngrq guvf grkg naq abj lbh pna ernq vg. Fb jung? :)   -- Whreq
[download]