I'll try it tonight.
Thanks!
Steve B.
---------- Original Message ----------------------------------
From: John Summerfield <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
Date: Mon, 22 May 2000 08:43:56 +0800
>> I'm doing some data-collection using some dedicated devices outputing via
>> their serial port, and I've run into a few roadblocks. My specific example
>> is a BASIC Stamp that's outputting temp every 60 seconds. I know that the
>> data is coming into the Linux serial port, as I can view the data using cu.
>> I've cheated the process by setting up one terminal window to do 'cu -l
>> /dev/ttyS0 > temp.dat', and in another terminal window I've got a perl
>> script that does a 'tail -f' every 60 seconds, appends the time, and writes
>> out to another file. Now I now the temp and time (the BASIC Stamp can't
>> send out time), which I could (for example) read in another perl script and
>> output to html.
>>
>> My issue is that I want to do this all with perl, in one script. Call it my
>> nature to make it as 'simple' as possible. I've tried working with the
>> serial port in perl, but I can't find any simple examples that show how to
>> read the serial port (BTW, I don't give a darn about writing to the serial
>> port, as this is data collection). My goal is to be able to set up a simple
>> routine that monitors the serial port for one data line terminating in
>> CR/LF. That's it. I'd prefer not to have to read character by character (as
>> I know every line will end in CR/LF), but will if I have to.
>>
>> I know this is a 20-line perl script, to read the serial port for one line
>> of data, append some formatted date info, and append to a disk file. But
>> I'm in need of some breadcrumbs. Just one simple loop that reads for a
>> line, so I can continue with my script.
>
>One of the nice things about perl is its willingness to cooperate with
>other programs. Since cu can read the port just fine, I'd open a pipe:
>open SERIAL, "</usr/bin/cd ... " or die "Drat that cu| $!";
>
>and go on with something else. I'm happy to use someone else's wheel.
>
>--
>Cheers
>John Summerfield
>http://os2.ami.com.au/os2/ for OS/2 support.
>Configuration, networking, combined IBM ftpsites index.
>
>
>--
>To unsubscribe:
>mail -s unsubscribe [EMAIL PROTECTED] < /dev/null
>
>
--
To unsubscribe:
mail -s unsubscribe [EMAIL PROTECTED] < /dev/null
