由于命令退出,Perl脚本出现了

时间:2013-11-05 06:36:29

标签: perl

我有一个接一个地安装android apks的命令。这些apks名称存储在一个文件中。我正在访问文本文件并发出以下命令来安装apks。

$t = new Net::Telnet (Timeout => undef);
$username="sqa";
$password="Tmie";
$t->open("xxxx.xx.com");
$t->login($username, $password);
$req_apks = "re2.txt";
open(F2, "<", "$req_apks") or die "Cannot open APK Filelist file:$!";
my $req;

while ($req = <F2>) {
   chomp;
   @b= $t->cmd("./adb install $req");
   print @b;
   sleep(3);
   print "\n";
}

但安装了1或2个apks后,命令“./adb install”失败。我要在文本文件中安装大约10个apks。是否有任何方法可以使./adb install commmand失败,脚本应该继续而不会死亡?

谢谢, 沙拉斯

0 个答案:

没有答案
相关问题