Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: TCP Socket and TIME_WAIT

by Khen1950fx (Canon)
on Aug 28, 2012 at 00:07 UTC ( #990094=note: print w/ replies, xml ) Need Help??

in reply to TCP Socket and TIME_WAIT

Your use of the bareword SOCKET should be my $socket. Don't forget to declare your subs.

#!/usr/bin/perl BEGIN { $| = 1; $^W = 1; } use strict; use warnings; use Socket qw/PF_INET SOCK_STREAM inet_aton sockaddr_in/; my $port = shift; my $proto = getprotobyname('tcp'); my $iaddr = inet_aton(''); my $paddr = sockaddr_in( $port, $iaddr ); socket( my $socket, PF_INET, SOCK_STREAM, $proto ) || die "Cannot prepare socket: $!"; eval { die "Can't connect to $port" unless connect( my $socket, $paddr ); }; shutdown($socket, 2); sleep 1; exit 0;

Comment on Re: TCP Socket and TIME_WAIT
Select or Download Code
Re^2: TCP Socket and TIME_WAIT
by Deus Ex (Beadle) on Aug 28, 2012 at 06:34 UTC

    Wonderful! That's what I was looking for!

    Many thanks!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://990094]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2015-05-23 03:24 GMT
Find Nodes?
    Voting Booth?

    In my home, the TV remote control is ...

    Results (465 votes), past polls