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

前端之家收集整理的这篇文章主要介绍了使用Perl将重音字符更改为小写前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有这样的重音字符集

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

例如,我想将Â转换为â.

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

解决方法

#!/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

试试这可能有用.

猜你在找的Perl相关文章