如何在模拟器上运行移动始发的调用perl脚本

Question

我试图在Emulator上运行Mobile origined call 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;

我是新手，所以如果可能的话请告诉我我在哪里做错了。

由于

Answer 1

你应该尝试使用

use New_MO; 

而不是

use New_MO.pm;

如果这没有帮助，请您分享您收到的错误消息吗？