CM Analyst schreef:
> my ($sec, $min, $hour,
> $mday, $mon, $year,
> $wday, $yday, $isdst) = localtime();
You don't have to allocate variables for the values that you don't need,
so in your case this might be sufficient:
my ($sec, $min, $hour) = localtime;
If you need
Dear All,
The following works for me.
#
use strict;
use warnings;
use Win32::SerialPort;
use IO::Select;
use IO::File;
use IO::Handle;
use Time::Local;
# Serial Settings
open (PORT, "+>COM1") || die "Can't Open Port\n";
open (LOG, "> c:\\temp\\logdata.txt") || die "Can't
Open File
