in reply to Transform ASCII into UniCode
use utf8; use Encode qw(encode decode); my $CharSet = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012 +3456789'; # ASCII my $BoldSet = encode('utf8','𝐚𝐛𝐜𝐝w +838;𝐟𝐠𝐡𝐢𝐣𝐤𝐥&# +119846;𝐧𝐨𝐩𝐪𝐫𝐬𝐭 +;𝐮𝐯𝐰𝐱𝐲𝐳𝐀w +809;𝐂𝐃𝐄𝐅𝐆𝐇𝐈&# +119817;𝐊𝐋𝐌𝐍𝐎𝐏𝐐 +;𝐑𝐒𝐓𝐔𝐕𝐖𝐗w +832;𝐙𝟎𝟏𝟐𝟑𝟒𝟓&# +120788;𝟕𝟖𝟗'); my $Source = 'The quick brown fox jumps over the lazy dog 1234567890 t +imes.'; my $Target = $Source; $Target =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 +456789/𝐚𝐛𝐜𝐝𝐞𝐟𝐠 +;𝐡𝐢𝐣𝐤𝐥𝐦𝐧w +848;𝐩𝐪𝐫𝐬𝐭𝐮𝐯&# +119856;𝐱𝐲𝐳𝐀𝐁𝐂𝐃 +;𝐄𝐅𝐆𝐇𝐈𝐉𝐊w +819;𝐌𝐍𝐎𝐏𝐐𝐑𝐒&# +119827;𝐔𝐕𝐖𝐗𝐘𝐙𝟎 +;𝟏𝟐𝟑𝟒𝟓𝟔𝟕x +790;𝟗/; print "$Source\n$Target\n"; #The quick brown fox jumps over the lazy dog 1234567890 times. #𝐓𝐡𝐞 𝐪𝐮𝐢𝐜w +844; 𝐛𝐫𝐨𝐰𝐧 𝐟𝐨 +𝐱 𝐣𝐮𝐦𝐩𝐬 𝐨 +9855;𝐞𝐫 𝐭𝐡𝐞 𝐥𝐚 +;𝐳𝐲 𝐝𝐨𝐠 𝟏𝟐 +20785;𝟒𝟓𝟔𝟕𝟖𝟗𝟎 + 𝐭𝐢𝐦𝐞𝐬.
Blessings,
~Polyglot~
|
---|
In Section
Seekers of Perl Wisdom