Nastaveni rychlosti portu

[Petr Barta]

> > 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") ?
> 
> $modem = '/dev/ttyS0';
> 
> # Otevirame a nastavujeme modem
> open(MODEM, "+<$modem") || mrtvej "Chyba pri otevirani modemu $modem: $!";
> system("stty 1200 -echo raw <$modem");

OK. Tomu rozumim - nastavil jsem rychlost na to, na cem je modem zamceny.

> cteni se pak realizuje pomoci sysread, psani pomoci syswrite.

Tohle mi ale moc nechodi - zkusil jsem to pres priklad, ktery je v camel
book ve stylu "$written = syswrite MODEM, $string, $len;".
Ten se pri spusteni tvari, ze je funkcni, ale efekt na modemu neni veskery
zadny - poslal jsem tam takhle retezec "ATZ\n" ($len se odvozuje z tohoto 
retezce, print "$len" mi napise 4, takze si myslim, ze je to dobre), ale
modem vubec nezareagoval. Kde delam chybu?

					Petr Barta