Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

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('172.16.1.5'); 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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2014-07-28 04:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (185 votes), past polls