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

2012-11-19 68 views 0 likes

我试图运行移动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;

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

感谢

来源

2012-11-19 Maverick

回答

你应该尝试使用

use New_MO;

代替

use New_MO.pm;

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

来源

2012-11-19 13:55:28

@ Mikko ..对不起，但错误，而不是写“使用New_MO;”，我写了“使用New_MO.pm;”。当然，我会和你分享我的错误消息。 – Maverick

运行上述脚本时出现此错误结果：包裹（错误：0xffffffb6“Not a data message”） – Maverick

这看起来不像perl错误。也许这是adb程序抱怨？ –

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

回答

相关问题