Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Arabic to Hex and Hex to Arabic

by Tux (Abbot)
on Jul 28, 2017 at 19:58 UTC ( #1196232=note: print w/replies, xml ) Need Help??


in reply to Arabic to Hex and Hex to Arabic

use 5.18.2;
use warnings;

use utf8;
use Data::Peek;
use Encode qw( decode encode );

my $arabic = "ﻟﻠﺒﻴﻊ"; # "For sale"

say join " " => map { sprintf "U+%06x", ord $_ } split m// => $arabic;

say join " " => map { sprintf "U+%06x",     $_ } unpack "U*", $arabic;

DHexDump $arabic;

say join " " => map { sprintf "U+%02x", ord $_ } split m// => encode (utf8 => $arabic);
U+00fedf U+00fee0 U+00fe92 U+00fef4 U+00feca U+00fedf U+00fee0 U+00fe92 U+00fef4 U+00feca 0000 ef bb 9f ef bb a0 ef ba 92 ef bb b4 ef bb 8a .............. +. U+ef U+bb U+9f U+ef U+bb U+a0 U+ef U+ba U+92 U+ef U+bb U+b4 U+ef U+bb +U+8a

Enjoy, Have FUN! H.Merijn

Replies are listed 'Best First'.
Re^2: Arabic to Hex and Hex to Arabic
by thanos1983 (Priest) on Jul 29, 2017 at 15:59 UTC

    Hello Tux,

    Thank you very much, this is another great idea. Thanks you again for your time and effort.

    Seeking for Perl wisdom...on the process of learning...not there...yet!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1196232]
help
Chatterbox?
and dust plays in a shaft of sunlight...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2017-10-21 00:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (268 votes). Check out past polls.

    Notices?