Re^2: Read and write UTF-8

You talk about characters - when using UTF-8, length and substr count characters, not octets, so in the output, you can find more than 21 octets. If you were already talking about characters, not octets, can you please show some short example input that exhibits the problem, preferrably together with a hexdump of the relevant portion of the file?

Comment on Re^2: Read and write UTF-8 Select or Download Code

Replies are listed 'Best First'.
Re^3: Read and write UTF-8 by choroba (Cardinal) on Oct 15, 2016 at 08:26 UTC
If you want to extract a given number of bytes from a UTF-8 string, use `bytes::substr` : `#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use open IO => ':encoding(UTF-8)', ':std'; my $string = join q(), map chr, 9312 .. 9321; say $string; say substr $string, 0, 7; say bytes::substr $string, 0, 7;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Read and write UTF-8
by choroba (Cardinal) on Oct 15, 2016 at 08:26 UTC

bytes::substr

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use open IO => ':encoding(UTF-8)', ':std';

my $string = join q(), map chr, 9312 .. 9321;
say $string;
say substr $string, 0, 7;
say bytes::substr $string, 0, 7;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

[reply]
[d/l]
[select]