Expect的输出问题

superdoctor

[quote]原帖由 "apile"][/quote 发表：


正如你看到的这样，将$self->;waitfor(Match =>; '/login[: ]*$/i',改为
$self->;waitfor(Match =>; '/[login|id|username...][: ]*$/i',并不费事

我看到同事在shell编程时用过expect，我刚才也查了查expect，发现确实是封装出来的perl模块，也就是说实际上是expect for perl，加了个壳，perl是一种发布非常广泛的语言，不编译的时候可以很容易在各个unix、linux平台上运行，如果使用expect也会带来难以移植的问题吧？

同时对于route之类的设备，也是有相同的模块的
Net::Telnet::Cisco     interact with a Cisco router
Net::Telnet::Netscreen        interact with a Netscreen firewall

apile

公司用的網絡設備有十多種...所以我還是習慣用expect去抓資料...
perl寫前端HTML UI...對於改perl module..建議還是少改為妙..
以免以後哪天更新主機忘了...都不知道問題在哪兒...
各有所好吧..解法不只一種..只看你喜歡哪一種罷了....^_^

另外看過network programming with perl那本書中有提到..
telnet其實是挺複雜的東西..你得考慮到stty -a顯示的那些內容..
如果沒弄好可能會出現很奇怪的內容...
像針對windows NT的telnet daemon一大堆的平移碼...
用Net::Telnet一定會出問題....而Expect因為完全模擬shell
所以比較不會出現這個問題..對於windows NT一樣會有平移碼問題..
但至少有辦法解決...

superdoctor

如果有很多不同的网络设备的话，使用expect也无仿，说到更大的扩展能力肯定还是net::telnet库的
有一个地方要澄清的是，net::telnet 不是一个专为telnet应用设计的库，只不过是创建时的目的是telnet应用，现在早已经扩展了，官方的说明是“interact with TELNET port or other TCP ports”，就是说可以应用在其他几乎任何的tcp socket应用上，本质上和socket库里面的tcp部分差不多，不管是win下还是*nix的平台都是用标准socket通信的，结合各种port应用的rfc标准是可以解决大部分问题的