perl 中文 编码 uincode html 转换 中文

1. use Encode;  
2. use strict;  
3. use warnings;  
4.   
5. my $str='阿斯' ;  
6. $str=~s/&#(/d+);/chr(($1 + 0 ))/eg;//之前的，好不容易才探索出之前的那个正确的方法  
7. #$str=~s/&#(/d+);/pack('U' ,$ 1 )/eg;//后来的  
8. print(encode('gbk' ,$str));