Re: How to remove other language character from a string

in reply to How to remove other language character from a string

If what I read is actually your code, you'll need HTML::Entities and a /g modifier to s///:

$ cat test.pl
use 5.14.1;
use warnings;

use HTML::Entities;

my $image;
$image ='&#3588;&#3619;&#3633;&#3623;&#3595;&#3629;&#3591;&#3648;&#364
+8;&#3595;&#3609;&#3604;&#3660;&#3623;&#3636;&#3594;&#3652;&#3586;&#36
+56;&#3604;&#3634;&#3623; Croissant Egg Sandwich &#3588;&#3619;&#3633;
+&#3623;&#3595;&#3629;&#3591;&#3648;&#3648;&#3595;&#3609;&#3604;&#3660
+;&#3623;&#3636;&#3594;&#3652;&#3586;&#3656;&#3604;&#3634;&#3623;';
$image = decode_entities ($image);
$image =~ s/\p{Thai}//g;
print $image;
$ perl test.pl
 Croissant Egg Sandwich $
[download]

Enjoy, Have FUN! H.Merijn

Comment on Re: How to remove other language character from a string Select or Download Code

In Section Seekers of Perl Wisdom