Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2017-12-12 16:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (335 votes). Check out past polls.

    Notices?