2

既存の perl ファイルを新しいサーバーに移動しようとすると、エラー (error_log ファイル) が発生します。古いサーバーで動作します。

アクセスすると: http://2x.29.xx.xx/admin/web.pl

エラーが発生します：

[エラー] 未定義のサブルーチン &web_main::main が /var/www/path/web.pl 行 40 で呼び出されました。

web.plファイルでは、次のようになります。

#!/usr/bin/perl -w

use strict;
use warnings;

use lib '/var/www/web';

our $var = '/var/www/web';
our $var1; 
our $var2; 
use web_main qw($var $var1 $var2);

web_main::main();  # Line 40

web_main.pmファイル (/var/www/web 内) は、次のようになります。

#!/usr/bin/perl -w

package web_main;

use strict;
use warnings;

sub main
{

  # Lots of code here... removed for brevity
}

何がうまくいかなかったのかわからない？

4

1 に答える 1

1

私は実際にはPerlの専門家ではありませんが、おそらくメインのサブルーチンをエクスポートする必要がありますか？Exporterを使用できます。

于 2012-11-26T09:35:22.613 に答える