perl 网页编码转换

发布时间：2020-12-15 23:42:56 所属栏目：大数据来源：网络整理

导读：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","$_"));

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!