Net::Telnet使用小記

use strict; use warnings; use Net::Telnet; my $tnet=new Net::Telnet('Host'=>'127.0.0.1','Timeout'=>3,'Dump_Log'=>'test.log'); $tnet->waitfor('Match'=>"/login:/"); $tnet->print("fibbery"); $tnet->wait

>>阅读原文<<