IO::Socket::INET Problem

4,059

Expert 2GB

your script has a few errors (or the code you posted does anyway) and should not even compile. Use the "warnings" pragma to help diagnose the problems.

use warnings;

The run the script from the command line and reade list of warnings/errors your code generates.

"my" variable $ID masks earlier declaration in same scope at script line 17.
Bareword found where operator expected at script line 58, near "$nump ort"
(Missing operator before ort?)
Unquoted string "ort" may clash with future reserved word at script line 58.
Bareword found where operator expected at script line 59, near "$sw remote"
(Missing operator before remote?)
Unquoted string "remote" may clash with future reserved word at script line 59.
Unquoted string "null" may clash with future reserved word at script line 86.
syntax error at script line 58, near "$nump ort"

May 10 '07 #2

158

100+

I got all those warning fixed but i still have my original problem. So if anyone can help me please do, Thank you.

May 10 '07 #3

4,059

Expert 2GB

OK, post your current code.

May 10 '07 #4

158

100+

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl

print "Content-type:text/html\n\n";
 
use IO::Socket;

#use strict;
 
my $header = 'Art-Net';

my $space =' ';

my $Prover = chr(0x0e);

my $filler = chr(0x00);

my $ttm = chr(0x02);

my $pad_len_18 = 18;

my $pad_len_64 = 64;

my $pad_len_34 = 34;
 
#---------------ArtPollReply Buffer--------------------------------------------------

my $ID = $header.$filler;

my $OpCode = $filler.'!';

my $IP = chr(0x02).chr(0x00).chr(0x00).chr(0x02);

my $Port = chr(0x36).chr(0x19);

my $vers = chr(0x02).chr(0x04);

my $subsw = chr(0x00).chr(0x00);

my $oem = chr(0x02).chr(0x10);

my $UBEA = chr(0x00);

my $status = chr(0xd2);

my $ESTA = chr(0x4c).chr(0x41);
 
my $short_name = 'Test';

my $long_name = 'Test Node 1';

my $report = 'Node is working.';
 
$short_name = $short_name.$filler x ( $pad_len_18 - length( $short_name ) );

$short_name = $short_name.$filler x ( $pad_len_18 - length( $short_name ) );
 
$long_name = $long_name.$filler x ( $pad_len_64 - length( $long_name ) );

$long_name = $long_name.$filler x ( $pad_len_64 - length( $long_name ) );
 
$report = $report.$filler x ( $pad_len_64 - length( $report ) );

$report = $report.$filler x ( $pad_len_64 - length( $report ) );
 
my $numport = chr(0x00).chr(0x08);

my $port_type = chr(0xc0).chr(0xc0).chr(0xc0).chr(0xc0);

my $imput_status = chr(0x80).chr(0x80).chr(0x80).chr(0x80);

my $output_status = chr(0x80).chr(0x80).chr(0x80).chr(0x80);

my $imput_switch = chr(0x10).chr(0x11).chr(0x12).chr(0x13);

my $output_switch = chr(0x00).chr(0x01).chr(0x02).chr(0x03);

my $swvideo = chr(0x00);

my $swmacro = chr(0x55);

my $swremote = chr(0xaa);

my $spare = chr(0x00).chr(0x00).chr(0x00).chr(0x00);

my $MAC = chr(0x00).chr(0x00).chr(0x00).chr(0x00).chr(0x00);

#----------------------------------------------------------------------------------
 
#-------ArtPoll-------

my $ArtPoll = $ID.$filler.$space.$filler.$Prover.$ttm.$filler;

#-------ArtPollReply----

my $ArtPollReply = $ID.$filler.'!'.$IP.$Port.$vers.$subsw.$oem.$UBEA.

    $status.$ESTA.$short_name.$long_name.$report.$nump ort.$port_type.$imput_status.$output_status.

    $imput_switch.$output_switch.$swvideo.$swmacro.$sw remote.$spare.$MAC.$filler.$filler;

#-----------------------
 
my $response = IO::Socket::INET->new(

    Proto => "udp",

    PeerPort => "6454",

);
 
my $poll = IO::Socket::INET->new(

    PeerAddr=> "2.255.255.255",

    PeerPort => "6454",

    Proto => "udp",

    LocalPort => "6454",

);
 
sub ArtPoll {

    $poll->send($ArtPoll);

    print "ArtPoll sent.\n";

}
 
sub ArtPollReply {

    $response->recv($ArtPollReply,250);

}
 
&ArtPoll;

&ArtPollReply;

May 10 '07 #5

4,059

Expert 2GB

can you please start using the code tags to post your code.

I don't know if it is a copy and paste problem, but the code you posted still has errors:

Bareword found where operator expected at script line 58, near "$nump ort"
(Missing operator before ort?)
Unquoted string "ort" may clash with future reserved word at script line 58.
Bareword found where operator expected at script line 59, near "$sw remote"
(Missing operator before remote?)
Unquoted string "remote" may clash with future reserved word at script line 59.
syntax error at script line 58, near "$nump ort"

with those errors corrected, I can't determine why your script is not working.

May 11 '07 #6

158

100+

Yeah those errors are just copy paste errors. But the script runs just fine except i need to receive the datagram packet that is being sent back to me that looks like the ArtPollReply buffer and i dont know if im using the recv command wrong but when it just empties out my buffer when the scipt runs.

May 11 '07 #7

4,059

Expert 2GB

Sorry mate, I have little experience in this area. I just do not know what the problem could be, hopefully someone else will have a suggestion, or try asking on another forum.

May 11 '07 #8

IO::Socket::INET on Cygwin doesnt work?

158

100+

OK thanks but i might have the solution when i use ord() on the string it gives me the first interger as a dec how would ido that to all the intergers in the string.

May 11 '07 #9

Similar topics

by: Rad | last post by:

Im trying to lauch a small perl program in cygwin which listens for arguments on a specified port. When executing this line (18) ; my $sock = new IO::Socket::INET(LocalPort => $DAEMONPORT,...

POP3 Mail Client in PERL using IO::Socket module only and regular expressions

Socket problem

by: whetham63 | last post by:

When I run this on my network at home and on my network at work it runs fine. When this is run at a clients network I am receiving a after the first packet is received(There are 2 packets...

C# / C Sharp

by: bobano | last post by:

Hi everyone, I am writing a POP3 Client program in Perl. You connect to a POP3 Server and have a running conversation with the mail server using commands from the RFC 1939 Post Office Protocol....

IO::Socket::INET - Receiving UDP Packet

C# Socket Problem

by: Mr. Beck | last post by:

Hello, Please Help..... I have been working with some tcp/ip socket communication within a C# program recently. Basicly, I have a program (myProblemProgram) that has a socket connected to...

C# / C Sharp

by: kardon33 | last post by:

How would i receive an incoming UDP packet in perl with IO::SOCKET::INET???

Error message while using IO::Socket::INET module.

by: Dimbeswar Pathak | last post by:

I got an error message "use" not allowed in expression at client.pl line 2, at end of line syntax error at client.pl line 2, near "use IO::Socket::INET" Execution of client.pl aborted due to...

IO::Socket::INET - 2 problems

by: clemima | last post by:

Hi, i have a script that listens on a port for simple text messages and then executes sql to a remote mssql database . The script is started via crontab . There are 2 problems : 1 . The line to...

Regular expressions using IO::Socket

by: pplers | last post by:

use IO::Socket; my $path= "http://website.com/aaa.php"; print q( __________ -/* Script v1.0 *\- ------------------ );

IO::Socket...HTTP/1.0\n\n needs to be HTTP/1.1\r\n

by: john2357 | last post by:

I can not use the LWP module, and must use IO::Socket. Using 'Wireshark' and Mozilla and passing in the parameters below I get a valid reply. However Wireshark shows HTTP needs to be 1.1 and that the...