不知道為什麼網路上流傳的這段程式碼有問題,而且好像都沒人發現。只要下 command 都會回傳 ERROR,而不是 OK。其實只是 let $c=$left($x,c) 寫錯了,應該是 let $x=$left($x,c) 才對,如此造成無法轉換換行字元而發生錯誤。

#################################################### # # command - comgt script for command interaction # # Copyright (C) 2006 Paul Hardwick <paul@peck.org> # ################################################### print "\nType command at prompt.\n" print "Empty input terminates.\n" print "#################\n" opengt set com 115200n81 set senddelay 0.05 waitquiet 1 0.2 :loop1 print "Command: " input $x let c=len($x) if c=1 goto end let c=c-1 let $x=$left($x,c) send $x send "^m" :loop2 print $a get 1 "^m" $a let a=len($a) if a > 0 goto loop2 goto loop1 :end print "#################\n"

台南小新 發表在 痞客邦 PIXNET 留言(0) 人氣()