all,
I am trying to create a dual interface. TCP on one end and ComPort on the other.

I can get perl to accept TCP and pass it to a serial port, thanks to help from samples found in books and the net.

I am trying to do it in both directions.
The program will need to wait for TCP and pass it to the Serial port (COM1), as it does now. Additioanally it needs to wait for SERIAL input on COM1 and pass it back to TCP.

All the data will start with a chr(2) and end with a chr(3)

Any help in the proper "looping/waiting" methods required is appreciated.

Regards and a good holiday.

Rick Vlahov

use strict; 
use IO::Socket;

use Win32::SerialPort qw( :STAT 0.19);  

my $Configuration_File_Name;
my ($SerialPortObj, $PortName, $quiet); 
my $element;


$Configuration_File_Name = 'c:\rvp\io-test\io-test.config';

$PortName = 'COM1';
$SerialPortObj = Win32::SerialPort->start($Configuration_File_Name);
$SerialPortObj->debug(0);  
my $PORT = shift || 2007;
my ($sock,$data);

my $listen = IO::Socket::INET->new( Listen    => 15,
                                    LocalPort => $PORT,
                                    Reuse     => 1)<br>
                              or die "Can't listen (TCP)";
warn "Listening (TCP) on port $PORT...\n";

$sock = $listen->accept;

while (sysread $sock,$data,1024) {
  print "got ",length($data)," bytes of normal data 12-20-02: $data\n"
+;
  
   $SerialPortObj->write(chr(2) . $data . chr(3));
}
__END__
[download]