Had this issue which is somewhat foxing me... there are two stages to this issue.
I will take a input for a name from a user, I wish to apply a regex to validate that the name is what I would consider a name, so all chars A-Za-z, a space, a . etc... however I also need to accept accented characters like åäöüíìóòúùñÑéèáàêëûãç_öüæøÅÄÖÉØÁÜÆØâîÂÎ... I even tried this in the regex but sometimes it fails... I think this is something to do with how the file is saved... my test scripts dont work properly... so is there a better way of doing this ?
Stage 2) I need to replace the accented chars with non accented equivalent (as the mainframe they eventually end up in do not accept them. I have used several regex's like
my $t = shift;
$t =~ s/(ä|Ä)/AE/g; #Ä
$t =~ s/(ö|Ö)/OE/g; #Ö
$t =~ s/(ü|Ü)/UE/g; #Ü
$t =~ s/(ß)/SZ/g; #ß
$t =~ s/(å|á|æ|â)/a/g; #ä|å|á|æ
$t =~ s/(ø)/o/g; #ö
$t =~ s/(é)/e/g; #é
$t =~ s/(î)/i/g;#î
$t =~ s/(Î)/I/g;#Î
$t =~ s/(Å|Á|Æ|Â)/A/g;#Å|Ä|Á|Æ
$t =~ s/(Ö|Ø)/O/g;
$t =~ s/[^a-z0-9\,\.\s\/\-\@\:]//ig;
Any tips in solving this greatly appreciated.