Re^2: How to remove other language character from a string

in reply to Re: How to remove other language character from a string
in thread How to remove other language character from a string

Thanks moritz, but when I tried this I got the output like this:

&#945;&#9557;ä&#945;&#9557;ú&#945;&#9557;&#9618;&#945;&#9557;º&#945;&#
+9557;ï&#945;&#9557;¡&#945;&#9557;ç&#945;&#9571;Ç&#945;&#9571;Ç&#945;&
+#9557;ï&#945;&#9557;Ö&#945;&#9557;ö&#945;&#9571;î&#945;&#9557;º&#945;
+&#9557;&#9508;&#945;&#9557;è&#945;&#9571;ä&#945;&#9557;é&#945;&#9571;
+ê&#945;&#9557;ö&#945;&#9557;&#9619;&#945;&#9557;º Croissant Egg
 Sandwich &#945;&#9557;ä&#945;&#9557;ú&#945;&#9557;&#9618;&#945;&#9557
+;º&#945;&#9557;ï&#945;&#9557;¡&#945;&#9557;ç&#945;&#9571;Ç&#945;&#957
+1;Ç&#945;&#9557;ï&#945;&#9557;Ö&#945;&#9557;ö&#945;&#9571;î&#945;&#95
+57;º&#945;&#9557;&#9508;&#945;&#9557;è&#945;&#9571;ä&#945;&#9557;é&#9
+45;&#9571;ê&#945;&#9557;ö&#945;&#9557;&#9619;&#945;&#9557;º
[download]

Comment on Re^2: How to remove other language character from a string Download Code

Replies are listed 'Best First'.
Re^3: How to remove other language character from a string by frozenwithjoy (Priest) on Nov 26, 2012 at 05:51 UTC
That's because it wasn't formatted correctly due to missing code tags (which were presumably left out so that the input text would be shown properly). When I first ran moritz's code, I just got the original string, but when I substituted: `$str =~ s/[^\p{Latin}\s]//g;` for this: `$str =~ s/^\p{Latin}\s//g;` it worked. EDIT: If you have lots of extra spaces in your output, you could run it through `$str =~ s/ {2,}/ /g;`, too. Something to keep in mind is that moritz's approach (as is) will remove punctuation.	[reply] [d/l] [select]
Re^4: How to remove other language character from a string by Anonymous Monk on Nov 26, 2012 at 09:53 UTC
It worked smoothly. Thanks Frozenwithjoy and moritz.	[reply]

In Section Seekers of Perl Wisdom