Re: Reversing Arabic String direction

Well, it's hard to tell what to do without knowing any Arabic. Try this:

use utf8;
use open qw(:encode(utf-8) :std);
...
$arabic_string =~ s/(\p{L}+)/reverse $1/eg;
[download]

You should've posted some examples. Then again, Perlmonks likes to mangle non-ASCII symbols.

Comment on Re: Reversing Arabic String direction Download Code

Replies are listed 'Best First'.
Re^2: Reversing Arabic String direction by LanX (Saint) on Jul 10, 2014 at 22:41 UTC
building on this, you'll need a second reverse and substitute numbers only `DB<136> $str ="a123bc45de" => "a123bc45de" DB<137> $str2= reverse $str => "ed54cb321a" DB<138> $str2 =~ s/(\p{N}+)/reverse $1/ge => 2 DB<139> $str2 => "ed45cb123a"` [download] `\p{N}` is a guess, I'll check nowš! :) update changed order of inversion to make it clearer. Cheers Rolf (addicted to the Perl Programming Language) š) `perlre` only mentions `\p{Digit}` and `\p{isDigit}` ... both work for me.	[reply] [d/l] [select]
Re^3: Reversing Arabic String direction by Anonymous Monk on Jul 10, 2014 at 23:09 UTC
Genius! ;)	[reply]
Re^2: Reversing Arabic String direction by Anonymous Monk on Jul 10, 2014 at 22:16 UTC
(should be) `use open qw(:encoding(utf-8) :std);`	[reply] [d/l]
Re^3: Reversing Arabic String direction by Anonymous Monk on Jul 10, 2014 at 22:22 UTC
Actually, it appears you want to reverse the whole string, rather then word-by-word. Then it wouldn't work.	[reply]