Hello fellow monks,

I need to solve a little, almost unnoticeable, but annoying problem. To test if a socket on a machine is open and there's something listening behind, i just try to connect with 

        [ ...snippet... ]
        my $port = shift;
        my $proto = getprotobyname('tcp');
        my $iaddr = inet_aton( '172.16.1.5' );
        my $paddr = sockaddr_in($port, $iaddr);

        socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die "Cannot pr
+epare socket: $!";

        eval {

                connect(SOCKET, $paddr) || die "Can't connect to $port
+";

        };

        close SOCKET || warn "Cannot close socket: $!";
        [ ...snippet... ]

[download]

All goes well, but the fact that when I close the socket, client side, on the server side it bothers to stay on TIME_WAIT. I'd guessed that closing the socket, the stream itself had been over and the server socket closed, but so it doesn't seem. Am I missing something? Is there any explicit way to send the ack to the server so that it will close the socket opened for my testing connection?

Thanks in advance for any kind answer.

In reply to TCP Socket and TIME_WAIT by Deus Ex

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.