perl: seriova komunikace II

[Honza Pazdziora]

On Sat, 12 Feb 2000 11:52:40 +0100, Vasek Vobornik <vobornik na fmplus.cz> wrote:
> Prosim heeelp. Uz si nevim rady a mam kruhy pod ocima.
> Muze mi nekdo poslat script v perlu, ktery nastavi seriovy port
> (COM1) na rychlost 9600,N,8,1, pocka na "OK" a vysle na nej "Connected" ??

Na to, ze mate kruhy pod ocima, je ten vysledek hubeny -- predpokladal
bych, ze nam ukazete aspon

	#!/usr/bin/perl -w
	open COM1, "+>/dev/ttyS0";
	__END__

nebo tak.

Cili muj start, abychom meli aspon neco, o cem se muzem bavit, je

	use POSIX;

	open MODEM, "+>/dev/ttyS0" or die "Error openning com1: $!";
	$fd = fileno(MODEM);
	$termios = new POSIX::Termios;
	$termios->getattr($fd);
	$termios->setispeed(&POSIX::B9600);
	$termios->setospeed(&POSIX::B9600);
	$termios->setattr($fd, &POSIX::TCSANOW);

Je to oprano primo z dejanews a netvrdim, ze to funguje, ale mame
kod, coz je dobry zacatek.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------