如何避免每個perl文件中的數據庫連接信息

Question

我正在使用我的web項目中的perl腳本的數量，我通過jquery ajax調用來調用它。每個Perl腳本都包含mysql數據庫連接信息（用戶名，密碼，數據庫名稱）。

有沒有更好的方法，這樣我就可以避免每個perl文件中的數據庫連接信息，並且可以全局存儲它，而不存在任何安全問題。

Answer 1

config.pl

{ 
    # sql credentials 
    user => "sqluser", pass => "123", dsn => "mysql..", 
} 

index.pl和其他腳本：

my $CFG = do "config.pl"; 
print "$CFG->{user} $CFG->{pass} ...\n"; 

Answer 2

多一點Perlish的選項：

Config.pm

package Config; 

sub get_config { 
    return { 
    # sql credentials 
    user => "sqluser", pass => "123", dsn => "mysql..", 
    }; 
} 
1; #return true from modules 

IND ex.pl和其他腳本：

#make sure the current folder is in the lib path 
#(if you have all in the same folder). 
use FindBin; 
use lib $FindBin::Bin; 

require Config; 
my $cfg = Config->get_config(); 
print "$cfg->{user} $cfg->{pass} ...\n"; 

但我想你得到了概念和TMTOWTDI。