>>>>> "Torbj�rn" == Torbj�rn lindahl <[EMAIL PROTECTED]> writes:
Torbj�rn> All the headers are represented on a line each with a colon, but how do i
Torbj�rn> reach the info on the first line, ie HTTP/1.0 200 OK
Torbj�rn> are they represented by some key or do i have to parse the string and
Torbj�rn> extract them with regexp?
Well, this *is* Perl. Let's look at the source (perldoc -m HTTP::Response):
....
sub as_string
{
require HTTP::Status;
my $self = shift;
my @result;
#push(@result, "---- $self ----");
my $code = $self->code;
my $status_message = HTTP::Status::status_message($code) || "Unknown code";
my $message = $self->message || "";
my $status_line = "$code";
my $proto = $self->protocol;
$status_line = "$proto $status_line" if $proto;
$status_line .= " ($status_message)" if $status_message ne $message;
$status_line .= " $message";
push(@result, $status_line);
....
and there you have it. It constructs it from calls to $self->code
and $self->message and $self->protocol. No trivial call. Maybe Gisle
could add $self->status_line that factors this out.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
