使用Perl将重音字符更改为小写
发布时间:2020-12-15 23:24:22 所属栏目:大数据 来源:网络整理
导读:我有这样的重音字符集 我想将大写重音字符转换为小写字母.我使用了lc运算符,但是我无法获得预期的输出. 例如,我想将?转换为a. 如果我使用像#x00C2这样的XML实体,如果我把它转换成小写,它应该变成#x00E2 解决方法 #!/usr/bin/perluse warnings;use strict;use
我有这样的重音字符集
我想将大写重音字符转换为小写字母.我使用了lc运算符,但是我无法获得预期的输出. 例如,我想将?转换为a. 如果我使用像Â这样的XML实体,如果我把它转换成小写,它应该变成â 解决方法#!/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 试试这可能有用. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |