perl - 代码语法错误

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().