Net :: Telnet，試圖讀取輸出

Question

我想從我的設備讀取這個輸出，我如何使用print和waitfor，我沒有成功。

這是輸出....

zSH> get v52-interface-group 1 
v52-interface-group 1 
name-id: ---------------------> {CTAA-024} 
local-interface-id: ----------> {1024} 
local-prov-variant: ----------> {2} 
prov-variant-request: --------> {norequest} 
admin-status: ----------------> {inservice} 
pstn-layer-3-start-address: --> {1} 
isdn-env-func-start-address: -> {1} 
port-alignment-request: ------> {norequest} 
national-pstn-region: --------> {brazil} 
switch-vendor: ---------------> {nortel} 
protocol-spec: ---------------> {edition2} 
startup-check-link-id: -------> {false} 
startup-unblock-user-ports: --> {false} 
link-oos-timer: --------------> {2500} 
link-is-timer: ---------------> {200} 

v52-link has 16 elements. Display [a]ll, [n]one, a [s]ubset, or [q]uit? q 

這是我的代碼，我要看書....

$string = "Display [a]ll, [n]one, a [s]ubset, or [q]uit?"; 
$tel->print("get v52-interface-group 1"); 
$tel->waitfor(String => $string); 
@out = $tel->cmd('q'); 
print @out; 

Answer 1

你應該儘量保護部分方括號waitfor()使用正則表達式。

$string = "/Display\s+\[a\]ll,\s+\[n\]one,\s+a\s+\[s\]ubset,\s+or\s+\[q\]uit\?/"; 
$tel->waitfor($string);