perl - 使用 Perl 将重音字符更改为小写

Question

我有一组像这样的重音字符



我想将大写重音字符转换为小写。我用了 lc运算符，但我无法获得预期的输出。

例如，我想转换 Â至 â .

如果我采用像 &#x00C2 这样的 XML 实体，如果我把它转换成小写，它应该变成 &#x00E2

Answer 1

#!/usr/bin/perl
use warnings;
use strict;
use Encode qw(encode decode);

my $enc = 'utf-8'; # This script is stored as UTF-8
my $str = "Ä\n";

# Byte strings:
print lc $str; # prints 'Ä', lc didn't have any effect

# text strings::
my $text_str = decode($enc, $str);
$text_str = lc $text_str;
print encode($enc, $text_str); # prints 'ä', lc worked as expected

试试这可能会奏效。