如何运行移动台发起呼吁模拟器
我试图运行移动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