"Andre Chaves Mascarenhas" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] Hi How do i read a web page with socks? do i send? if SK is a open socjet at port 80 at lets say www.yahoo.com if i send print SK "GET /index.htm HTTP/1.1\n" will i get the www.yahoo.com/index.htm page ? Thanks
that's bascially about it. your request header doesn't seem to be a complete HTTP request though. for demonstrating purpose, something like that should work: #!/usr/bin/perl -w use strict; use Socket; socket(KDE,PF_INET,SOCK_STREAM,getprotobyname('tcp')); my $internet_address = inet_aton('kde-look.org') || die $!; connect(KDE,sockaddr_in(80,$internet_address)) || die $!; select((select(KDE), $! = 1)[0]); syswrite(KDE,"GET /index.htm HTTP/1.1\r\nHost: www.kde-look.org\r\n\r\n"); while(sysread(KDE,my $line,1024)){ print "$line"; } close(KDE); __END__ the IO::Socket::INET module makes things a lot easier for you so other than educational purpose there is no reason to play around with the low level Socket api. the following bascially accomplish the same thing: #!/usr/bin/perl -w use strict; use IO::Socket::INET; my $s = IO::Socket::INET->new(PeerAddr => 'www.kde-look.org', PeerPort => 80, Proto => 'tcp', Type => SOCK_STREAM) || die $!; print $s "GET /index.htm HTTP/1.1\r\nHost: www.kde-look.org\r\n\r\n"; print while(<$s>); __END__ finally, if you are interested in downloading web page from the net, LWP::UserAgent might worth a look: #!/usr/bin/perl -w use strict; use LWP::UserAgent; my $rs = LWP::UserAgent->new->request(HTTP::Request->new(GET => 'http://www.kde-look.org')); print $rs->content if($rs->is_success); __END__ which again accomplish bascially the same thing as above. more info can be found at: perldoc -f socket perldoc -f connect perldoc -f sysread perldoc -f syswrite perldoc -f select ... and a bunch other socket releated functions. Or: perldoc IO::Socket::INET perldoc LWP::UserAgent perldoc HTTP::Request perldoc HTTP::Reponse david -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]