HTML::Encoding
使用这个模块可以探测一个http请求返回结果的charset
用法如下:
use HTML::Encoding 'encoding_from_http_message';
use LWP::UserAgent;
use Encode;
my $resp = LWP::UserAgent->new->get('http://www.sohu.com');
my $enco = encoding_from_http_message($resp);
print $enco;
新开小站欢迎访问 http://lamp.sh.cn 我们的lamp世界,分享lamp类技术