android - 如何在模拟器上运行移动发起的呼叫 perl 脚本

Question

我试图在 Emulator 上运行 Mobile 发起的调用 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;

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