代码语法错误

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()一样使用。