$TTY = "/dev/ttyS0";
$STTY ="ignbrk -icrnl -ixon -opost -onlcr -isig -icanon -iexten parenb -parodd cs8 -echo -echoe"
." -echok -echoctl -echoke min 0 time 5 1200";
`stty $STTY <$TTY`;
open(IN,"$TTY") || die "\ncan not open Interface for reading $!\n";
open(OUT,">$TTY") || die "\ncan not open Interface for writeing $!\n";
$oldfh = select(OUT);
$| = 1;
select($oldfh);
$| = 1;
it is working quiet well, Replace time 5 with time 0, I guess.
This is just a guess. See stty(1) or go to a dedicated serial programming forum or mailing list.
perlmonks.org content © perlmonks.org and calin, perlminator, Zaxo
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03