Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^2: issues reading from serial port

by EvanK (Chaplain)
on Aug 06, 2005 at 20:45 UTC ( #481549=note: print w/replies, xml ) Need Help??

in reply to Re: issues reading from serial port
in thread issues reading from serial port

Ah! i can't believe I missed the answer and it was IN the documentation! I'm so ashamed...What can i say, it was a very long workday. ::shrugs apologetically::

UPDATE: ok, this is kind of wierd, it seems that everything is blocked from printing in the main loop until I ctrl+c, after which it all prints out and dumps back to command line.
while($EXIT == 0) { $temp = pollForData(); print $temp; print LOG $temp; sleep(1); }
however, if i print the returned data and include something else within the same print command, it works fine.
while($EXIT == 0) { $temp = pollForData(); print "$temp\n"; print LOG $temp; sleep(1); }
the thing is, i don't want to print the data every iteration through the loop, but otherwise NOTHING at all happens until i ctrl+c...OH, almost forgot. the pollForData sub:
sub pollForData { my($length,$buffer); # Poll controller to send any pending data (if there is none, # it will send back a 'RES' control character print SERIAL $IM{'POL'}; $upstream++; # read in $BUFFER amount of bytes $length = read(SERIAL,$buffer,$BUFFER); # update num of bytes received so far $downstream += $length; # return data return $buffer; }

Give a man a match and he'll be warm for an hour. Set him on fire and he'll be warm for the rest of his life.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://481549]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2021-04-15 14:35 GMT
Find Nodes?
    Voting Booth?

    No recent polls found