标签:nbsp div win 获取 bsp color mod log header
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头部信息
标签:nbsp div win 获取 bsp color mod log header
原文地址:http://www.cnblogs.com/perl6/p/6536886.html