Re: Somthing related to encoding ??

The folowing will convert the entities into unicode counterpart.

$dec_text="&#1575;&#1604;&#1605;&#1581;&#1578;&#1604;&#1577;"
$dec_text =~s/(\&\#(\d+)\;)/pack("U*",$2)/eg;
[download]

Comment on Re: Somthing related to encoding ?? Download Code

Replies are listed 'Best First'.
Re^2: Somthing related to encoding ?? by Anonymous Monk on Aug 10, 2005 at 16:12 UTC
Thanks for your reply but i don't want to "pack" i want to "unpack" the word to get something like : `المحتلة`	[reply] [d/l]
Re^3: Somthing related to encoding ?? by newroz (Monk) on Aug 11, 2005 at 13:28 UTC
Sorry, for misunderstood. I had replied in a hurry. An alternative approach for other case.Cast these ones. `perl -e 'my $str="czd"; my $s=join " ", map { sprintf "&#%d;", $_ } un +pack("U",$str); print my $s;'` [download] or perl -e 'my $str="عفاريت"; my $s=join " ", map { sprintf "&#%d;", $_ } unpack("U",$str); print my $s;'	[reply] [d/l]