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;
04-18
04-18
04-18
04-18
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交