내가 얻는 이유 : 정의되지 않은 서브 루틴

Question

기존의 perl 파일을 새 서버로 옮기려고하는데 오류가 발생했습니다 (error_log 파일). 그것은 이전 서버에서 작동합니다. 나는에 액세스 할 때

가 : http://2x.29.xx.xx/admin/web.pl

내가 오류 얻을 :

[error] Undefined subroutine &web_main::main called at /var/www/path/web.pl line 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 
} 

무엇이 잘못 되었습니까?

Answer 1

필자는 실제로 Perl 전문가는 아니지만 메인 서브 루틴을 내보낼 필요가 있습니까? Exporter을 사용할 수 있습니다.