Perl我会使用fc而不是uc吗？

uc($a) cmp uc($b)    # XXX
lc($a) cmp lc($b)    # XXX
fc($a) cmp fc($b)    # ok

这会产生影响的一个例子：

lc uc fc
-- -- -- --
ss ss SS ss
SS ss SS ss
?  ?  SS ss
?  ?  ?  ss

注意fc(“?”)eq fc(“?”),但是uc(“?”)ne uc(“?”).

注意fc(“?”)eq fc(“ss”),但lc(“?”)ne lc(“ss”).

该表是使用生成的

use strict;
use warnings;
use feature qw( fc );

use open ':std',':encoding(UTF-8)';

my $ss = "N{LATIN SMALL LETTER SHARP S}";
my $SS = "N{LATIN CAPITAL LETTER SHARP S}";

printf("   lc uc fcn");
printf("-- -- -- --n");
printf("%-2s %-2s %-2s %-2sn",$_,lc($_),uc($_),fc($_))
   for 'ss','SS',$ss,$SS;