IO::Socket::INET returns a empty socket

Question

This is my code:

 my $server_socket = new IO::Socket::INET
            (
                LocalPort => 8378,
                Type      => SOCK_STREAM,
                Listen    => $SOMAXCONN,
                Proto     => 'tcp',
                Reuse     => 1
            ) || die "$!\n";

        $serverName   = $ENV{COMPUTERNAME};
        $socketPortNr = 8378;
        $clientSocket = new IO::Socket::INET (PeerAddr => $serverName,
                                                  PeerPort => $socketPortNr,
                                                  Proto    => 'tcp');

but the $clientSocket is empty.

What could be the reason for empty $clientSocket?

when I use use strict, I get errors for variable initialization and script is stopped — user2338040
– user2338040, Commented Feb 13, 2015 at 10:28
the same script was running successfully in Windows 7 ultimate machine. Im facing issue in Windows 7 enterprise.So I think use strict would not be a problem. — user2338040
– user2338040, Commented Feb 13, 2015 at 10:45
my $sock = IO::Socket::INET->new(...) or die $!. The $! will tell you what's wrong — Mark Nunberg
– Mark Nunberg, Commented Feb 13, 2015 at 14:46

ikegami · Accepted Answer · 2015-02-16 01:49:27Z

1

There's no need to speculate. As shown in the examples in its documentation, IO::Socket::INET->new places an error message in $@ when it fails.

my $client_socket = new IO::Socket::INET->new(
   ...
)
   or die("Can't create client socket: $@\n");

($! is also set, though the information it provides is not always as precise.)

edited Feb 16, 2015 at 1:49

answered Feb 13, 2015 at 20:37

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

IO::Socket::INET returns a empty socket

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related