Socket Connection To Mico Controller

[shelato]

Hi,

I am able to open a socket connection to a micro controller, connected to a lynksys router, using visual basic code on a windows web site. Now I'm trying to open a socket connection using Perl on a linux server. I'm not having any luck at all. I'm not completely new to perl programs, but most of my experience is in simply installing and modifying freeware programs. Can anyone tell me what's wrong with this code?

#!/usr/local/bin/perl
use IO::Socket; 
my $sock = new IO::Socket::INET (
    PeerAddr => '24.179.20.129',  #not real address
    PeerPort => '59004', 
    Proto => 'tcp', 
    ); 
 
or die "Could not create socket: $!\n" unless $sock; 
print $sock "R1R0"; 
close($sock);
print "Content-type: text/html\n\n";
print "Hi there!\n";
exit;
 

I get an Internal Server Error

if I comment out the "or die" line and the "print $sock" line it will run without an error and print "hi there", but the socket obviously does not do anything.

What I'm trying to do is send the command R1R0 to a micro controller which in turn controls a toy robot. I'm able to do it with visual basic, but not perl.

Thanks!!!

Dwight

[numberwhun]

Hi,

I am able to open a socket connection to a micro controller, connected to a lynksys router, using visual basic code on a windows web site. Now I'm trying to open a socket connection using Perl on a linux server. I'm not having any luck at all. I'm not completely new to perl programs, but most of my experience is in simply installing and modifying freeware programs. Can anyone tell me what's wrong with this code?

#!/usr/local/bin/perl
use IO::Socket; 
my $sock = new IO::Socket::INET (
    PeerAddr => '24.179.20.129',  #not real address
    PeerPort => '59004', 
    Proto => 'tcp', 
    ); 
 
or die "Could not create socket: $!\n" unless $sock; 
print $sock "R1R0"; 
close($sock);
print "Content-type: text/html\n\n";
print "Hi there!\n";
exit;
 

I get an Internal Server Error

if I comment out the "or die" line and the "print $sock" line it will run without an error and print "hi there", but the socket obviously does not do anything.

What I'm trying to do is send the command R1R0 to a micro controller which in turn controls a toy robot. I'm able to do it with visual basic, but not perl.

Thanks!!!

Dwight

I would question whether you need the "or" before the die statement. You are saying to "die, unless this is true", so I don't think you need it.

I think the "or" is only needed if you put it at the end of something like an open.

Regards,

Jeff

[shelato]

Thanks Jeff. Taking the "or" out did not help. I still get a 500 Error. I can make the following "work", at least it does not return an error. It makes me think there is something wrong with my use of an IP Address in the PeerAddr line. Also, I can not find an error in the server error log.

 
 
#!/usr/local/bin/perl
use IO::Socket; 
my $sock = new IO::Socket::INET (
    #PeerAddr => '24.179.20.999', 
    #PeerPort => '59004', 
    PeerAddr => 'www.shelato.com', 
    PeerPort => 'http(80)', 
 
    Proto => 'tcp', 
    ); 
die "Could not create socket: $!\n" unless $sock; 
print $sock "R1R0"; 
close($sock);
print "Content-type: text/html\n\n";
print "Hi there!\n";
exit;
 
 
 

The project I'm working on can be seen at the home page in my profile. I'm able to open a winsock using VB from my laptop, and I can open a socket using VWD Experss on a windows server with ASP.net 3.5. But I really want to move my robot control panel over to a Linux server and use Perl. I'm fairly confident my receiving router and port forwarding is working since these other programs work.

[numberwhun]

Thanks Jeff. Taking the "or" out did not help. I still get a 500 Error. I can make the following "work", at least it does not return an error. It makes me think there is something wrong with my use of an IP Address in the PeerAddr line. Also, I can not find an error in the server error log.

 
 
#!/usr/local/bin/perl
use IO::Socket; 
my $sock = new IO::Socket::INET (
    #PeerAddr => '24.179.20.999', 
    #PeerPort => '59004', 
    PeerAddr => 'www.shelato.com', 
    PeerPort => 'http(80)', 
 
    Proto => 'tcp', 
    ); 
die "Could not create socket: $!\n" unless $sock; 
print $sock "R1R0"; 
close($sock);
print "Content-type: text/html\n\n";
print "Hi there!\n";
exit;
 
 
 

The project I'm working on can be seen at the home page in my profile. I'm able to open a winsock using VB from my laptop, and I can open a socket using VWD Experss on a windows server with ASP.net 3.5. But I really want to move my robot control panel over to a Linux server and use Perl. I'm fairly confident my receiving router and port forwarding is working since these other programs work.

Just something I noticed, but your use statement says "use IO::Socket;", but in your "new" declaration, you are specifying "IO::Socket::INET". If you look at the page for that module, the use statement should also contain that module, including the INET piece.

So, it looks like you are specifying one module and trying to use another. I would change my use statement to be:

use IO::Socket::INET;
 

And if it isn't already installed, then install it before executing the script. The reason I say this is IO::Socket::INET inherits all of the methods and variables from IO::Socket, but it isn't used unless you specify its use statement.

Regards,

Jeff

[shelato]

Hi,

Any other ideas? I know it's a little odd to be communicating over the internet with a robot. I'm not sure where else to go for help on the perl socket connection.

Thanks again,

Dwight

[shelato]

Just something I noticed, but your use statement says "use IO::Socket;", but in your "new" declaration, you are specifying "IO::Socket::INET". If you look at the page for that module, the use statement should also contain that module, including the INET piece.

So, it looks like you are specifying one module and trying to use another. I would change my use statement to be:

use IO::Socket::INET;
 

And if it isn't already installed, then install it before executing the script. The reason I say this is IO::Socket::INET inherits all of the methods and variables from IO::Socket, but it isn't used unless you specify its use statement.

Regards,

Jeff

Sorry jeff, I'm reading from a bberry tonight and missed your reply, will try these changes tomorrow. Thanhs!!!

[rohitbasu77]

Just something I noticed, but your use statement says "use IO::Socket;", but in your "new" declaration, you are specifying "IO::Socket::INET". If you look at the page for that module, the use statement should also contain that module, including the INET piece.

So, it looks like you are specifying one module and trying to use another. I would change my use statement to be:

use IO::Socket::INET;
 

And if it isn't already installed, then install it before executing the script. The reason I say this is IO::Socket::INET inherits all of the methods and variables from IO::Socket, but it isn't used unless you specify its use statement.

Regards,

Jeff

use the Type key as SOCK_STREAM or Listen key with que number.

may try this also:

use IO::Socket::INET;
my $sock = new IO::Socket::INET ( '24.179.20.999:59004' );
 

this will take tcp as default and SOCK_STREAM as default.
If not try to print the $@ to know the error completly.