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";