Mit Perl Pin 7 von Serieller Schnitstelle auf logisch 1 setzen?

Hi,

http://members.aol.com/Bbirthisel/alpha.html

vieleicht hier

CU
9000h

Zitat

Original von sterum
Hi,

Ist es möglich, mit einem Perl Skript z.b. Pin 7 (RTS) der Seriellen Schnittstelle auf logisch 1 zu setzen, damit an diesem Pin eine Spannung anliegt.
Wenn ja, wie?

Nicht schoen, aber schnell:

system ("/usr/local/sbin/setserialbits /dev/ttySX +rts") ;

ford:~ # setserialbits --help
setserialbits: Usage: "setserialbits <device> [options]"
<device> is a serial device, like /dev/cua0
"-rts" "+rts" clear/set Requst To Send
"-dtr" "+dtr" clear/set Data Terminal Ready
a number report data every that many seconds

Das Binary kommt bei mir aus irgendeiner alten SuSi. Bei Bedarf maile ich es Dir gerne zu.