perl 网页编码转换

scan724

于 2015-07-03 12:57:59 发布

阅读量509

点赞数

CC 4.0 BY-SA版权

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/46740377

perl LWP 专栏收录该内容

111 篇文章 ¥39.90 ¥99.00

订阅专栏

本文演示了如何使用Perl进行网页内容的编码转换。通过LWP::Simple模块获取网页内容，然后利用Encode模块将UTF8编码的网页内容转换为GBK编码，并输出转换后的结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;