Reason for specified Error Occurence

[Ranjit]

Hi Perl pals,

Could any one let us know the reason why the below error is showing
from this code.

ERROR :

Use of uninitialized value in subroutine entry at C:/Perl/lib/
Socket.pm line 373.
Bad arg length for Socket:ack_sockaddr_in, length is 0, should be 4
at C:/Perl/lib/Socket.pm line 373.


#!/usr/bin/perl
use Socket;
$proto = getprotobyname('tcp');
$domain = PF_INET;
$type = SOCK_STREAM;
socket(CLIENT,$domain,$type,$proto);

$port = 0 ;
$ipaddr = INADDR_ANY;
$sockaddr = sockaddr_in($port,$ipaddr);
bind(CLIENT,$sockaddr);
print "sathi";

$host = 'www.yahoo.com';
$port = getservbyname('http','tcp');
$ip_addr= inet_aton($host);
$sockaddr = sockaddr_in($port,$ip_addr);
connect(CLIENT,$sockaddr);

Thanks in Advance

Regards,
Ranjit

 

[Dr.Ruud]

Ranjit schreef:

Could any one let us know the reason why the below error is showing
from this code.

ERROR :

Use of uninitialized value in subroutine entry at C:/Perl/lib/
Socket.pm line 373.
Bad arg length for Socket:ack_sockaddr_in, length is 0, should be 4
at C:/Perl/lib/Socket.pm line 373.


#!/usr/bin/perl

Missing:

use strict;
use warnings;

use Socket;
$proto = getprotobyname('tcp');
$domain = PF_INET;
$type = SOCK_STREAM;

printf "proto:%s, domain:%s, type:%s\n",
$proto, $domain, $type;

socket(CLIENT,$domain,$type,$proto);

Missing: test for succes.

$port = 0 ;
$ipaddr = INADDR_ANY;
$sockaddr = sockaddr_in($port,$ipaddr);

printf ...

bind(CLIENT,$sockaddr);

test ...

print "sathi";

$host = 'www.yahoo.com';
$port = getservbyname('http','tcp');
$ip_addr= inet_aton($host);

printf ...

$sockaddr = sockaddr_in($port,$ip_addr);

printf ...

connect(CLIENT,$sockaddr);

test ...