
Perl: the Markov chain saw
	PerlMonks

Transform ASCII into UniCode

by Perlian (Initiate)

on Mar 23, 2021 at 03:20 UTC ( [id://11130172]=perlquestion: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

my $CharSet = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012
+3456789'; # ASCII
my $BoldSet = '&#119834;&#119835;&#119836;&#119837;&#119838;&#119839;&
+#119840;&#119841;&#119842;&#119843;&#119844;&#119845;&#119846;&#11984
+7;&#119848;&#119849;&#119850;&#119851;&#119852;&#119853;&#119854;&#11
+9855;&#119856;&#119857;&#119858;&#119859;&#119808;&#119809;&#119810;&
+#119811;&#119812;&#119813;&#119814;&#119815;&#119816;&#119817;&#11981
+8;&#119819;&#119820;&#119821;&#119822;&#119823;&#119824;&#119825;&#11
+9826;&#119827;&#119828;&#119829;&#119830;&#119831;&#119832;&#119833;&
+#120782;&#120783;&#120784;&#120785;&#120786;&#120787;&#120788;&#12078
+9;&#120790;&#120791;'; # UniCode bold
...
$Target =~ tr/$CharSet/$BoldSet/;

print "$Source\n$Target\n";

Select or download this

The quick brown fox jumps over the lazy dog 1234567890 times.
Toe quick bdown fox jumps oved toe llzy dog 1234567890 times.

Select or download this

This is perl 5, version 26, subversion 3 (v5.26.3) built for x86_64-li
+nux-thread-multi
(with 51 registered patches, see perl -V for more detail)

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: perlquestion [id://11130172]
Approved by GrandFather
Front-paged by kcott
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (6)

As of 2024-04-20 02:30 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found