37,719
社区成员
发帖
与我相关
我的任务
分享
$t->waitfor(String=>'/Done/',Timeout=>300);#Timeout应该足够长,至少要比正常运行install的时间长
$t->cmd(String => 'install.exe',
Timeout => undef,
);
$t->print('install.exe');
my @lines=$t->waitfor('/.+>$/');
print("@lines");
$t=new Net::Telnet(Timeout=>10,Prompt=>'/.+>$/i',Dump_Log=>'F:\Dump_Log.log');
$t->cmd('install.exe');
my @lines=$t->waitfor('/.+>$/');
print("@lines");