如何运行移动台发起呼吁模拟器

我试图运行移动perl脚本发起呼吁模拟器perl脚本,但得到的错误运行脚本时:如何运行移动台发起呼吁模拟器

下面是脚本:

Mo_call.pl

#!/usr/bin/perl -w 

use strict;

use New_MO.pm;

for(my $i=0; $i<=4;$i++)

{

New_Mo::call_Originate();

}

New_MO.pm

package New_MO; 

sub call_Originate

{

system("adb -s $device_id shell service call phone 763726728");

sleep 10;

system("adb -s $device_id shell input keyevent 4");

system("adb -s $device_id shell input keyevent 3");

}

1;

我是这个新东西,所以如果可能的话请让我知道我在做什么错误。

感谢

回答:

你应该尝试使用

use New_MO; 

代替

use New_MO.pm; 

如果这没有帮助,请你分享你得到错误信息?

以上是 如何运行移动台发起呼吁模拟器 的全部内容, 来源链接: utcz.com/qa/257551.html

回到顶部