perl处理html编码的中文

今天用perl处理post上传的数据的时候，开始都好好的，基本都解决了
突然遇到其中中文显示不对，一看是html编码的问题
记得以前用c写cgi程序的时候遇到过这个情况
当时还专门写了函数编码解码的
但是时间过去很长了，我一下就忘记了，于是重新探索，也算是一个再学习的过程
整了很长一段时间
终于一看数据库，数据还是乱码，我心想难道还是失败了，突然发现已经翻页了，
phpmyadmin的这个问题就是表数据翻到最后一页刷新数据后，就算新增页了也不会自动跳到最后一页。
一看最后一页，已经是好的了
再往上看 原来前面几次都已经是翻页了，但是前面几次都没注意，突然看到上面有一个结果也是正确的，才明白原来早就已经正确了，只是看到以前的以为还是错的，于是继续试验，虽然有点郁闷，但是一次学了两种方法也不算亏

use Encode;
use strict;
use warnings;

my $str='阿斯';
$str=~s/&#(\d+);/chr(($1+0))/eg;//之前的，好不容易才探索出之前的那个正确的方法
#$str=~s/&#(\d+);/pack('U',$1)/eg;//后来的
print(encode('gbk',$str));