코드 구문 오류

Question

Cant가 작동하는 것처럼 보이지만 계속 구문 오류가 발생합니다. 두 번째 마지막 줄에서

#!/usr/bin/perl 

use CGI qw(:standard); 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use strict; 

my $Catagory = "Test"; 

if($Catagory eq 'Home'){ 
print "Location: http://www.DomainName/\n\n"; 

}else{ 

require ("Data/Library/$Catagory.lib"); 
$Catagory(); 

} 

Answer 1

당신은 $Category()을 실행하려고하지만 그것은 단지 스칼라가 포함되어 있습니다. 정말로 이상한 일이 파일에서 일어나지 않는 한, 바로 위에 필요합니다.

Answer 2

필자는 "$ Catagory.lib"에있는 내용을 추측하지만, 펄 모듈을 다시 작성하려고 시도하는 것처럼 보입니다. perlmod perldoc을 읽고 "Test.pm"모듈을 만드는 것이 좋습니다. 해당 모듈의 서브 루틴은 Test::foo()처럼 사용됩니다.