0

エミュレーターでモバイル発信呼び出し 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;

私はこのことに慣れていないので、可能であれば、どこで間違いを犯しているのか教えてください。

ありがとう

4

1 に答える 1

1

使ってみるべきです

use New_MO; 

それ以外の

use New_MO.pm;

これで問題が解決しない場合は、表示されているエラー メッセージを教えてください。

于 2012-11-19T13:55:28.217 に答える