Ing. Branislav Gerzo [IBG], on Thursday, January 27, 2005 at 09:47 (+0100) made these points:
IBG> Convert the string to UTF-8, then iterate over the characters, get IBG> their names using Unicode::CharName::uname, strip the accent using IBG> regular expression from the name, like LATIN CAPITAL LETTER A WITH ACUTE =>> LATIN CAPITAL LETTER A and then what is left to find out is IBG> the way to convert the name back to the character and replacing it in IBG> the string.... here is the final way: http://www.nomorepasting.com/paste.php?action=getpaste&pasteID=30230 use Unicode::Normalize; use Encode; $string = "+lšctžýáíé test"; $string = decode("windows-1250", $string); $string = NFD($string); $string =~ s/\pM//og; print $string; -- ...m8s, cu l8r, Brano. [God's okay, but her fans are a pain in the ass.] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
