2

我正在尝试将现有的 perl 文件移动到新服务器，但出现错误（error_log 文件）。它在旧服务器上工作。

当我访问：http://2x.29.xx.xx/admin/web.pl

我收到一个错误：

[错误] 在 /var/www/path/web.pl 第 40 行调用了未定义的子例程 &web_main::main。

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 方面的专家，但也许您需要导出主子例程？您可以使用导出器。

于 2012-11-26T09:35:22.613 回答