Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Getting Web site header info

by gav^ (Curate)
on Sep 17, 2002 at 15:35 UTC ( #198518=note: print w/ replies, xml ) Need Help??

in reply to Getting Web site header info

Using Data::Dump to dump all the headers in your example you can see what keys to look for:

use HTML::HeadParser; use HTTP::Headers; use Data::Dump 'dump'; my $h = HTTP::Headers->new; my $p = HTML::HeadParser->new($h); $p->parse(<<EOT); # your header here! EOT print dump($p->header), "\n"; __END__ bless({ title => "Mysite Title", "x-meta-description" => "Homepage", "x-meta-distribution" => "all", "x-meta-keywords" => "word1,word2, word3", "x-meta-poc" => "Mike Smith 111-111-1111", "x-meta-postdate" => "20011220 ", "x-meta-resource-type" => "document", "x-meta-title" => "Department C ", "x-meta-url" => "", }, "HTTP::Headers")
All the keys start with 'x-meta' which is why nothing was printing for you. Checking the documentation for HTML::HeadParser I found:
All <meta> elements will initialize headers with the prefix ``X-Meta-'' on the name. If the <meta> element contains a http-equiv attribute, then it will be honored as the header name.
You can find the docs by running perldoc HTML::HeadParser

Hope this helps...


Comment on Re: Getting Web site header info
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://198518]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2015-11-27 16:53 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls