Question

I’m trying to connect to a web service using IO::Socket::INET (yes, I know that there are lots of better modules for doing this, but I don’t have them and can’t add them, so please don’t suggest it), but I’m timing out (I think that’s what it’s doing) waiting for a response.

Here’s the basic crux of my code (I previously populate the content with all the proper headers, and set it up, etc):

$httpSock->print($content);

my @lines = $httpSock->getlines();
foreach my $line ( @lines ) {
    print $line;
}

It appears that my request is made immediately, then it waits about 2 minutes before spitting back the response. If I alter the code to use a raw socket recv instead of getlines(), ala:

$httpSock->recv($data, 1024);

I get the response immediately (although only the first 1024 chars). Am I doing something wrong here? I’m using a late enough version of IO::Socket that autoflush should be enabled by default, but turning it on explicitly didn’t seem to make any difference. I could probably also just keep reading from the socket until I got the entire response, but that’s definitely messier than using getlines() or <$httpSock>.

Thanks in advance.

Answer 1

I’m having an issue re-creating the problem with the code snippet you’ve posted. Here’s the code I tested with:

use strict;
use warnings;
use IO::Socket;

my $httpSock = new IO::Socket::INET(
    PeerAddr => 'www.google.com',
    PeerPort => '80',
    Proto    => 'tcp',
);

my $content = "HEAD / HTTP/1.0\r\nHost: www.google.com\r\n\r\n";

$httpSock->print($content);
my @lines = $httpSock->getlines();
foreach my $line (@lines) {
    print $line;
}

Here are the results:

$ time ./1.pl
HTTP/1.0 200 OK
-snip-  

real    0m0.084s
user    0m0.025s
sys 0m0.007s