Case shifting on accented characters

[mwhiting]

How do I case shift accented characters? I want to take "LES MISÉRABLES" and change it to "LES MISéRABLES". This is so that I can do a regex comparison against that string. I don't need to shift the rest of the characters because I can do a case insensitive comparison on the rest of it (\\i), but that doesn't work on the accented characters.

I tried the lc function, but it just gives me "LES MISRABLES"

[ikegami]

//i does work on accented characters ...usually. When it doesn't, you can force it to using one of the following methods:

• 5.8.1+

  utf8::upgrade($_);
  /.../i
  

• 5.12+ (or 5.14+?)

  use feature 'unicode_strings'; 
  /.../i
  

• 5.12+ (or 5.14+?)

  use 5.012;
  /.../i
  

• 5.14+

  /.../iu
  

• 5.14+

  use re '/u';
  /.../i
  

A very likely possibility is that you don't actually have "é" or "É" in your string or in your code due to forgetting to decode, since you don't normally need the above.

use utf8;  # Source file is encoded using UTF-8
print "é" =~ /É/i ?1:0,"\n";  # 1
print "É" =~ /é/i ?1:0,"\n";  # 1
print "é" =~ /\w/ ?1:0,"\n";  # 1
print "É" =~ /\w/ ?1:0,"\n";  # 1

---

To answer your question, you could go about doing that by lowercasing non-ASCII characters using s/([^\x00-\x7F])/lc($1)/eg; with one of the above used.

use utf8;                             # UTF-8 code
use open ':std', ':encoding(UTF-8)';  # UTF-8 terminal
use 5.012;
$_ = "LES MISÉRABLES";
s/([^\x00-\x7F])/lc($1)/eg;  # LES MISéRABLES
say;

[Anonymous Monk]

$ perl -MData::Dump -E " $f=qq{É\N{U+00C9}}; dd( $f ); dd(fc( $f )); "
"\xC9\xC9"
"\xE9\xE9"


http://perldoc.perl.org/functions/fc.html
http://perldoc.perl.org/perlfunc.html#fc
https://en.wikipedia.org/wiki/%C3%89#Character_mappings