1 2 3 4
# verbinde TeraTerm mit 9600 Bd an COM1, # mit der Konfiguration aus Konfiguration.INI # und führe die Makros in der Makrodatei Makro.TTL aus my $result = qx("TTERMPRO", "/BAUD=9600 /C=1 /F=Konfiguration.INI /M=Makro.TTL");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; verbinde über COM1
connect '/C=1'
; lösche Bildschirm komplett
clearscreen 0
; sende ABC als einzelne Bytes
send 'ABC'
; sende Zeichenkette FOO und Zeilenende
sendline 'FOO'
; Empfange Antwort
receivln
; Falls mit BLAH geantwortet wurde
if inputstr == 'BLAH' then
; tue irgendwas
endif
; Verbindung schließen
disconnect 0