Perl unterstützt das schon lange:
# LATIN CAPITAL LETTER SHARP S
# from codepoint
my $uc = pack "U", 0x1E9E;
# upper to lower
my $lc = lc $uc;
# show octets
use bytes;
print "@{[unpack('C*', $lc)]}"; # 195 159
--
Perl unterstützt das schon lange:
# LATIN CAPITAL LETTER SHARP S
# from codepoint
my $uc = pack "U", 0x1E9E;
# upper to lower
my $lc = lc $uc;
# show octets
use bytes;
print "@{[unpack('C*', $lc)]}"; # 195 159