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

I'm only guessing at what's in "$Catagory.lib", but it looks like you're trying to reinvent perl modules, calling something from that file. It might be a good idea to read the perlmod perldoc, and create a "Test.pm" module. Subroutines in that module would be used like Test::foo().

Answer 2

最後から 2 番目の行では、実行しようとして$Category()いますが、スカラーしか含まれていません。すぐ上で必要なファイルで本当に魔法のようなことが起こっていない限り。