#!/usr/bin/perl -l 
 
use Device::SerialPort; 
 
$LOGDIR  = "/home/vobelic/serial-comm";    # path to data file 
$LOGFILE = "lb486.log";                      # file name to output to 
$ob    = "/dev/ttyS1";                      # port to watch 
 
$ob = Device::SerialPort->new($ob) || die "Can't Open $ob: $!"; 
 
$ob->baudrate(9600)    || die "failed setting baudrate"; 
$ob->parity("none")    || die "failed setting parity"; 
$ob->databits(8) || die "failed setting databits"; 
$ob->stopbits(1) || die "failed setting stopbits"; 
$ob->stty_icrnl(1)     || die "failed setting convert cr to new line"; 
$ob->handshake("none") || die "failed setting handshake"; 
 
$ob->write_settings || die "no settings"; 
 
 
open( LOG, ">>${LOGDIR}/${LOGFILE}" ) 
  || die "can't open smdr file $LOGDIR/$LOGFILE for append: $SUB $!\n"; 
 
select(LOG), $| = 1;    # set nonbuffered mode, gets the chars out NOW 
 
 
 
while (1) { 
$ob->lookclear;  
 
# sync 
$ob->write("\x7e\x00\x00\x00\x00\x00"); 
$ob->write_drain; 
sleep(1); 
 
# get time 
$ob->write("\x7e\x00\x00\x03\x00\xfd"); 
$ob->write_drain; 
sleep(1); 
 
$ob->lookclear;  
# get data 
$ob->write("\x7e\x00\x00\x07\x00\xf9"); 
$ob->write_drain; 
sleep(1); 
 
my $answer = $ob->input; 
# or my $answer=$ob->read(255); 
print LOG $answer; 
 
} 
 
$ob->close; 
undef $ob;