perl 中替换中文字符的问题

xiaomifeng789

大神们好，我现在想把“医院地址” 替换成 hospital
如下代码：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Encode;
   
5. 
   
6. my $str2 = encode('utf8', '医院地址：');  
   
7. my $str4 = encode('utf8', 'hospital');  
   
8. #open (DATA,"<D:/14-perl/test1.txt");
   
9.         while (<DATA>) {
   
10.                 my $str3= encode('utf8','医院地址：test'); ## 能替换
    
11.         #        my $str3= encode('utf8',$_);   ## 不能替换
    
12.                 $str3=~s/$str2/hospital/g;
    
13.                 print decode('utf8',$str3)."\n";
    
14. }
    
15. #close (DATA);
    
16. 
    
17. __DATA__
    
18. 医院地址
    
19. 联系电话
    
20. 医院地址
    
21. 医院网站

复制代码

不知道为什么，替换不了。
能帮忙解答一下吗？

xiaomifeng789

另外，我用自己的编码 直接 替换是可以的
s/医院地址/hospital/g;

但如果把数据保存到文本中，就不可以了。说明还是编码的问题，知道这一块怎么办，不过搞不定。

sunzhiguolu

1. use utf8;

复制代码

beyondlee1

我是这样处理的:

用Tk显示：
my $sel = '请选择';
my $ok = '确定';
chinese($sel);
chinese($ok);

sub chinese {  #
    $_[0]=decode("gb2312",$_[0]);
}

一般中文处理显示的话，可以这样：

print encode("gb2312",$sel);

可以去看看encode相关技术文件

xiaomifeng789

回复 3# sunzhiguolu

刚搞定，是IDE搞的事，我这里用eclipse写的代码并执行，结果就是不对的，放到perl环境下面执行就可以，谢谢。~

sunzhiguolu

回复 5# xiaomifeng789
以前我也遇到过这个问题, 不过折腾了好多次才搞定。