comment on

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://www.mywebsitehere.com",
}, "HTTP::Headers")
[download]

All the keys start with 'x-meta' which is why nothing was printing for you. Checking the documentation for HTML::HeadParser I found:

X-Meta-Foo:
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...

gav^

In reply to Re: Getting Web site header info by gav^
in thread Getting Web site header info by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


XP is just a number
	PerlMonks