代碼語法錯誤

Question

不能似乎得到這個工作，所有我一直得到的是一個語法錯誤。

#!/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」，但它看起來像你試圖重塑perl模塊，從該文件調用某些東西。閱讀perlmod perldoc可能是一個好主意，並創建一個「Test.pm」模塊。該模塊中的子例程將被用作Test::foo()。