首页 > 代码库 > perl HTML::HeadParser获取html头部信息

perl HTML::HeadParser获取html头部信息

 1 use LWP::Simple;
 2 use HTML::HeadParser;
 3 use utf8;
 4 binmode(STDOUT, ":encoding(gbk)"); #设置win下输出中文
 5 
 6 $result = get(http://www.baidu.com);
 7 $what = HTML::HeadParser->new;
 8 $what->parse($result);
 9 print $what->header(refresh),"\n";
10 print $what->header(title),"\n";
11 print $what->header(content_type),"\n";

 

perl HTML::HeadParser获取html头部信息