Help for this page

Select Code to Download


  1. or download this
    use locale;
utf8::upgrade( my $s = chr(0xC9) );   # e-acute
print "Outside char class: ", $s =~ m/\w/   ? "" : "no ", "match\n";
print "Inside char class:  ", $s =~ m/[\w]/ ? "" : "no ", "match\n";
  2. or download this
    LANG=en_CA.utf8 perl test.pl
Outside char class: no match
Inside char class:  match