Is there an easy way to normalize and lowercase a unicode string?
This works for probably most Latin languages:
use Unicode::Normalize;
my $lower_nfc = NFC(lc(NFD($string)));
However this doesn't work for, say, Greek.
It seems that the Perl Unicode API would require 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);
Surely there's an easier way...
$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";