Perl正则表达式替换后乱码的有关问题

Perl正则表达式替换后乱码的问题
比如我想将一个文本中的符号换成对应的文字,如果直接用：
s/=/等于/g;
s/≈/约等于/g;
s/°/度/g;
s/℃/摄氏度/g;
s/kg/千克/g;
等等，处理后的结果出现了乱码，怎么处理才不会有乱码呢，谢谢！

------解决方案--------------------
是编码的问题。
你的原先文件可能都是一般的字符，编码都是一个字符对应一个字节，单中文是一个字符对应两个字节，这就很容易导致乱码，因为文本编辑器这时候不知道你采用的是哪一种编码。
解决方法跟 fibbery 一样。
希望对你有帮助。。
------解决方案--------------------

探讨
写了一个，帮忙挑一下毛病^_^：
use Encode;
use strict;
use warnings;

my $string1 = "经常将车辆底盘刮坏，也造成堵车严重。＝";
my $string2 = $string1;
my $str1 = "＝";
my $str2 = "等于";

$string1 =~ s/$str1/$str2/g;
print "$s……

Perl正则表达式替换后乱码的有关问题

相关推荐