use Encode;
use LWP::Simple qw(get);
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::Ping;
use Socket;
use Net::SMTP;
$host = 'http://www.xxx.cn';
@content = get($host);
while (<@content>) {
$str = encode("gbk",decode("utf8","$_"));
print "$str" ;
}
close FILE;
perl 网页编码转换
最新推荐文章于 2016-01-15 16:52:00 发布
本文演示了如何使用Perl进行网页内容的编码转换。通过LWP::Simple模块获取网页内容,然后利用Encode模块将UTF8编码的网页内容转换为GBK编码,并输出转换后的结果。
摘要由CSDN通过智能技术生成