Solved

cant use sockets in win32 perl

Posted on 2006-10-24
6
262 Views
Last Modified: 2010-05-18
win32 perl 5.8.8

trying to use IO::Sockets to open up a tcp connection, to just do a simple communication between two computers on the same subnet.

first i run the receiver on one computer:

=========================
use IO::Socket;
my $sock = new IO::Socket::INET (
                                 LocalHost => '192.168.1.186',
                                 LocalPort => 9000,
                                 Proto => 'tcp',
                                 Listen => 1,
                                 Reuse => 1,
                                );
die "Could not create socket: $!\n" unless $sock;
   
my $new_sock = $sock->accept();
while(<$new_sock>) {
   print $_;
}
close($sock);
================================

with the intention of running the sender on another computer

================================
 

use IO::Socket;
my $sock = new IO::Socket::INET (
                                 PeerAddr => '192.168.1.183',
                                 PeerPort => 9000,
                                 Proto => 'tcp'
                                );
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";

$answer=<$sock>;

close($sock);
 
===============================
   
but the receiver never connects, always dies with a "could not create socket:  Unknown error" message

what am i doing wrong?
0
Comment
Question by:jephtah
  • 3
  • 2
6 Comments
 

Author Comment

by:jephtah
ID: 17800441
if i change both hostnames to "localhost" and do it all on one computer (two terminal windows), it works correctly.

if i change peer address to "www.yahoo.com" and peer port to 80, it sends my little packet to yahoo, and i get back a 'bad html request' answer from them.

i think maybe i dont have my computers set up to accept traffic on the ports correctly or something...   i am behind my company's firewall, but being on the same subnet, it shouldnt matter.  in fact, both computers are physically sharing the same switch port, via a simple hub.  i tried to set ports open on my network settings, but apparently it didnt do what i hoped it would do.





0
 
LVL 25

Expert Comment

by:clockwatcher
ID: 17800627
You probably have XP SP2 installed and the firewall enabled.
0
 
LVL 18

Accepted Solution

by:
Morcalavin earned 125 total points
ID: 17802840
Take this out:
LocalHost => '192.168.1.186',

Not defining the localhost will allow the server to listen for incoming calls on the socket from any ip address.
0
Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

 

Author Comment

by:jephtah
ID: 17813750
i do not have the firewall enabled.
0
 

Author Comment

by:jephtah
ID: 17813926
MORCALAVIN:  

ok, that works, but i dont understand why the LocalHost has to be removed.  all of the examples for IO::Socket specify a LocalHost.  

0
 
LVL 18

Expert Comment

by:Morcalavin
ID: 17813954
I'm not entirely sure as I'm not a socket genius, but I had this same problem in a perl socket program and a c# socket program.  Specifying the localip address as your localhost would only allow you, the localhost, to send to the socket.  I guess localhost defines the server your listenting for, not what server you are listening on.  *shrugs*
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many time we need to work with multiple files all together. If its windows system then we can use some GUI based editor to accomplish our task. But what if you are on putty or have only CLI(Command Line Interface) as an option to  edit your files. I…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question