HTTP headers, not as string

[motte]

I haven't had the need for this in a while, but I know there is a function that gets the HTTP headers w/o having to manually parse them.

I thought it was with HTTP::Headers.
Something as easy as calling a function such as headers() would return an array of headers. But I can't remember how this would work and what would do it.

Anyone know?

Mike

 

[rob51383]

You talking about this:

use CGI qw(:standard);
print header;
print start_html("Hello World");
print "<h2>Hello, world!</h2>\n";
print end_html;

 

[naq2]

I think what you want is this:

use HTTP::Lite ;
$HTTPHandle = new HTTP::Lite ;

$request = $HTTPHandle->request("[URL unfurl="true"]http://www.google.com")[/URL]
    or die("This was bad and painful!") ;

@iLoveArrays = $HTTPHandle->headers_array();

If it is this... please let me know coz I have some trouble with the use of HTTP::Lite.

 

[motte]

naq2,

You are working down the right path, but I'm not sure if that is it. We don't have HTTP::Lite installed, and since it has been a while since I used whatever I am talking about, I'm not sure if it was Lite that was used before we upgraded. But I believe it was something else. I think it was from an inheritable base class that should never be instantiated, but I can't remember which.

mike

 

[PaulTEG]

Mike,

I would have though the Rob's suggestion would be the one you want, but then I see "manually parse", and this makes me wonder ...

HTML::TokeParser::[Simple] if you're talking about parsing html

Have a look on

http://search.cpan.org

look for HTML:arse

--Paul



It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[motte]

You know, I was really dumb on this. This is it here:

#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $request = HTTP::Request->new('POST', '[URL unfurl="true"]http://myurl/http/postto.cgi');[/URL]

my $response = $ua->request($request);
my %headers = %{$response->headers};
foreach my $h (keys %headers){
  print qq($h: $headers{$h}\n);
}

print $response->content();

 

[PaulTEG]

HTTP::Request
if not a simple
use HTTP::Request might sort it out

Is this solved?

--Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...