From pug at mpinet.net  Wed Jun  7 23:06:12 2000
From: pug at mpinet.net (Perl Monger)
Date: Thu Aug  5 00:08:24 2004
Subject: Serial Comms under Perl
Message-ID: <200006080406.AAA02860@oau.org>


Hello PerlMongers,

What is the most elegant way of communicating with the serial port from
Perl?  I am thinking that I will need to have concurrent reading and
writing per transaction.

Also would like to be able to set port speed from same program without
have to run as root or have the entire program have root access.  Also
what about handling locks?

regards,

// David //

From kc4zvw at taut.oau.org  Fri Jun 16 20:52:10 2000
From: kc4zvw at taut.oau.org (David Billsbrough)
Date: Thu Aug  5 00:08:24 2004
Subject: Perl/Tk is working
Message-ID: <200006170152.VAA06904@taut.oau.org>


Hello PerlMongers,

Any one else playing with scripting and GUI stuff?


#!/usr/bin/perl

use Tk;

#===========================================================
#	Create a main window
#===========================================================

$top = MainWindow->new();
$top->title("Simple");

#===========================================================
#	Instantiate widgets and arrange them
#===========================================================

$l = $top->Label(text => "\n" . 'Hello World!',	# label properties
				anchor => 'n',					# anchor text to "north"
				relief => 'groove',				# border style
				width => 15, height => 3);		# 15 chars wide, 3 high.

$l->pack();			# Give it a default place with in the main window

#===========================================================
#	Sit in an infinite loop dispatching incoming events.
#===========================================================

MainLoop();

# End of Script


regards,

// David //
-- 
David Billsbrough (KC4ZVW)
Altamonte Springs, Florida  Grid: EL98hp
AMSAT * ARRL * Linux * OpenBSD * PICmicro * QRP-L * TAPR