Help for this page

Select Code to Download


  1. or download this
    use Unicode::Normalize;
my $lower_nfc = NFC(lc(NFD($string)));
  2. or download this
    use Unicode::UCD qw(charinfo);
use Unicode::Normalize;
my $nfd_string = NFD($string);
$nfd_string =~ s{(\p{Lu})}{chr(hex(charinfo(ord($1))->{lower}))}ge;
my $nfc_string = NFC($nfd_string);
  3. or download this
    $h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";