Re: Low level socket question.


P is for Practical
	PerlMonks

Re: Low level socket question.

by crouchingpenguin (Priest)

on Jun 25, 2003 at 12:05 UTC ( [id://268822]=note: print w/replies, xml )

Need Help??

in reply to Low level socket question.

How about just using IO::Socket?

#!/usr/bin/perl
$|++;
use strict;
use warnings;
use IO::Socket;

my $host = '0.0.0.0';
my $port = 80;
my $socket = IO::Socket::INET->new(
  PeerHost => $host,
  PeerPort => $port,
  Timeout => 5,
) or die "Failed to connect to $host on $port: $!";
$socket->autoflush(1);
print "Host reached\n-----------------\n" ;
my $lines = 'GET /index.html';
$socket->send($lines . "\n");
while( defined( my $line = $socket->getline() ) ){
  print $line;
}
[download]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."