Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^4: Serial Port

by PilotinControl (Pilgrim)
on Aug 13, 2015 at 18:35 UTC ( [id://1138479]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Serial Port
in thread Serial Port

RichardK a big thank you! It works! and the code is below:

sub handler { my $timer = $mw->repeat(100,\&sighandler ); sub sighandler { my $data = $port->lookfor; return unless $data; # do stuff print STDOUT "$time Message Received: (" . $data . ")\n"; if ($data =~ /OF/) { $signalblock100->configure(-image => $mw->Photo(-file => 'picture.jpg' +)); } $port->lookclear; } }
Had to use a sub with in a sub...unless there is a different way to do it..the code works as follow:
1.) Button is Pushed = LEDs turn on for 8 seconds
2.) LEDs go out and the word OF is sent from the Arduino and is Polled by the Perl Script and the button that is shaded is now unshaded and the RX/TX buffers have been purged. Thanks again!

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-28 10:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found