小编Cha*_*nez的帖子

我最近不得不从一个共享帐户转移到一个VPS,自从我进入VPS后,我无法获得一些我不会再写的Perl脚本了.

主脚本如下所示:

#!/usr/bin/perl

BEGIN{ push @INC, '../'; }

use CGI qw/:standard *div *form *script/;  
use Vamp::Config qw/:site/;
use Vamp::Users;
use Vamp::Utils;
use Vamp::HTML;
use strict;
use warnings;

根据我对Perl的有限知识,我可以说它正在尝试使用一些自定义Perl模块(配置,用户,实用程序和HTML).但是,这里有一些东西不允许使用它们.

文件夹结构如下所示:

• 登录/ index.pl
• 鞋面/ Config.pm

这就是其中一个模块的编写方式:

package Vamp::Config;

BEGIN{ push @INC, '../' }

use Exporter;
use strict;
use warnings;

our @ISA = ("Exporter");
our @EXPORT_OK = qw/%DB $HOME_URL $ADMIN_URL $SITE_ROOT/;
our %EXPORT_TAGS = (
    database => [qw/%DB/],
    site    => [qw/$HOME_URL $SITE_ROOT/],
    admin   => [qw/$ADMIN_URL/]
);

our %DB = (
    LIVE    => { …