如何运行移动台发起呼吁模拟器
问题描述:
我试图运行移动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;
如果这没有帮助,请你分享你得到错误信息?
@ Mikko ..对不起,但错误,而不是写“使用New_MO;”,我写了“使用New_MO.pm;”。当然,我会和你分享我的错误消息。 – Maverick
运行上述脚本时出现此错误结果:包裹(错误:0xffffffb6“Not a data message”) – Maverick
这看起来不像perl错误。也许这是adb程序抱怨? –