use Win32::Internet;
use Encode;
$INET = new Win32::Internet();
$file = $INET ->FetchURL("http://www.baidu.com");
$b=encode("cp936", decode("utf-8",$file));
print $b;
常见问题
相关文章
猜你喜欢
- 将perl脚本变成乱糟糟的一团 2015-12-14
- MySQL的异步调用模块 2015-12-14
- perl发送邮件，简单的代码 2015-12-14
- perl操作数据库 2015-12-14
- 输入输出 2015-12-14
- Perl CGI Shell 2015-12-14
- mod_security日志信息提取工具 – modgrep 2015-12-14
- 动态生成pxelinux菜单文件及kickstart安装脚本 2015-12-14
- irssi 显IP插件 2015-12-14
- Perl 打开 word 文档并修改内容 2015-12-14
