I'm writing a simple port listener script using
$local=IO::Socket::INET->new(Proto=>"tcp",
LocalPort=>$port,
Listen=>1,
Reuse=>1,) or die "Can't open listening port: $!\n";
Everything works fine except I want to check to see if the port is available
before I try to open it. In some cases, if the machine is already listening on
a port, the script dies as expected. In other cases the script runs but isn't
really listening. Sometimes it takes over a LISTENING port. I want to check
for LISTENING or ESTABLISHED ports.
Thanks.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
