# Strings can be stored internally as UTF8.
# Each character can be more than a byte.
my $demo = v1024.32.64;
printf "The string is %d characters long\n", length($demo);
foreach my $index ( 0 .. length($demo)-1 ) {
my $char = substr( $demo, $index, 1 );
print "Glyph: $char, ordinal: ", unpack("U*", $char), "\n";
}
The string is 3 characters long
|