Capturing a data squirt.

[Richard S Beckett]

Guys,

The infra red port on my laptop is com4. When I point my palm pilot at it,
and send a file it works just fine, and the file is transferred. (Running
w32)

I want to capture this data squirt, and store it in a file, so I tried
this...

use strict;
use warnings;
use Win32::SerialPort;
open( PORT, "+>COM4" ) or die "Can't open COM4: $!";
open (FILE, ">file.txt");
while (1) {
my $input = <PORT>;
print FILE "$input\n";
}

However all I get is a file containing nothing at all.

Can anyone help me, please?

Thanks.

 

[Terry L. Ridder]

Guys,

The infra red port on my laptop is com4. When I point my palm pilot at it,
and send a file it works just fine, and the file is transferred. (Running
w32)

I want to capture this data squirt, and store it in a file, so I tried
this...

use strict;
use warnings;
use Win32::SerialPort;
open( PORT, "+>COM4" ) or die "Can't open COM4: $!";
open (FILE, ">file.txt");
while (1) {
my $input = <PORT>;
print FILE "$input\n";
}

However all I get is a file containing nothing at all.

Can anyone help me, please?

perldoc perlfaq8

how do i read and write the serial port?