database - 如何避免每个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";