Nastaveni rychlosti portu

[Milan Sorm]

V poslednim dopise Petr Barta pise:
> DD,
> 	mam 2 dotazy, o kterem si ani nejsem jisty, zda sem patri:
> Potrebuju komunikovat z perl skriptu se seriovym portem, ale neni mi
> jasne, jak nastavit rychlost komunikace. Je vubec mozne to nejak udelat z
> PERLu? (Konkretne potrebuju nastavit parametry 38400 8N1, jak je vypisuje 
> napr. minicom.)
> 
> No a po nastaveni rychlosti - jakym zpusobem dal komunikovat? Je mozne
> pouzit normalni open(PORT,"/dev/ttyS0") ?
> 
> 
> 					Petr Barta
> 


$modem = '/dev/ttyS0';

# Otevirame a nastavujeme modem
open(MODEM, "+<$modem") || mrtvej "Chyba pri otevirani modemu $modem: $!";
system("stty 1200 -echo raw <$modem");

cteni se pak realizuje pomoci sysread, psani pomoci syswrite.

milan
-- 
--------------------------------------------------------------------
Milan Sorm  (aka Popelnik)    tel/fax/zazn: +420 5 46211083/46211311          
office:  B205 - FI MU Brno    e-mail: sorm na fi.muni.cz
telefon: +420 5 41512348      web:    http://www.fi.muni.cz/~sorm/