I have been messing with network programming and sockets recently(trying to learn anything I possible can). As a simple introduction I wrote Server and Client sockets.

I am having trouble with getting these sockets to work from two different machines. They run correctly when I use 'localhost' but if I try to plug in an IP, they fail on the connect attempt. There is one more thing I am going to try( the 'inet_aton' function ) but I figured I'd get the ball rolling. Here is the code I am using, I'll point out my areas of trouble with comments.

Server Socket first.

use IO::Socket;

$sock = new IO::Socket::INET( LocalAddr => 'localhost',  #if i was to 
+plug an IP in as the value for LocalAddr, wouldn't work
                              LocalPort => 1200,
                              Proto     => 'tcp',
                              Listen    => 10,
                              Reuse     => 1 );
die $! unless $sock;

while ( $new_sock = $sock->accept() ) {
    $clnt = $sock->sockhost();
    print "New connection from $clnt...\n";
    while ( $buf = <$new_sock> ) {
        print $buf;
    }
    print "Client disconnected...\n";
}

close( $sock );
[download]

Now the client socket:

use IO::Socket;

$sock = new IO::Socket::INET( PeerAddr => 'localhost',  # an IP here a
+nd the script fails to connect
                              PeerPort => 1200,
                              Proto    => 'tcp' );
die "Socket could not be created: $!\n" unless $sock;

$msg = <STDIN>;
while ( $msg !~ m/^\n$/ ) {
    $inp = $msg;
    undef( $msg );
    print $sock "MSG: $inp";
    $sock->flush();
    $msg = <STDIN>;
}

close( $sock );
[download]

Thanks in advance for any help you guys can give. - kel -

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.