perl HTML::HeadParser获取html头部信息
2024-08-27 09:23:01
use LWP::Simple;
use HTML::HeadParser;
use utf8;
binmode(STDOUT, ":encoding(gbk)"); #设置win下输出中文 $result = get('http://www.baidu.com');
$what = HTML::HeadParser->new;
$what->parse($result);
print $what->header('refresh'),"\n";
print $what->header('title'),"\n";
print $what->header('content_type'),"\n";
最新文章
- maven可选依赖(Optional Dependencies)和依赖排除(Dependency Exclusions)
- ETL的数据来源,处理,保存
- 使用wget备份禅道
- 【Windows核心编程】VirtualAlloc 例子
- 一天一个mysql函数(一) cast &;&; convert
- (转)MVC 3 数据验证 Model Validation 详解
- Android 模拟登陆 保存密码(信息)到手机中 文件信息读取
- js 对url字符转译全解
- FastReport配置打印预览button_C++
- OR1200数据Cache介绍
- JSON和java对象的互转
- 数据库隔离级别(mysql+Spring)与性能分析
- java Base36 算法
- mui侧滑菜单";点击含有mui-action-menu类的控件";无法实现侧滑
- Python 面向对象(三)
- Docker容器的创建、启动、和停止
- Hibernate_HQL
- 关于Dubbo面试问题
- 爬虫--requests模块高级(代理和cookie操作)
- day2-作业及答案