从CGI脚本Perl访问DBI连接的配置文件的正确方法

Question

您好我是Perl和DBI编程的新手，刚开始学习CGI。我想通过perl cgi脚本访问Mysql数据库，但我不想将配置变量（用户名，密码等）存储在cgi-bin的实际脚本中。我可以使用require '/path/to/configfile.pl'语句，但不使用use strict，我不喜欢。   我希望有人可以告诉我包含的正确和安全的方法是什么 在这种特定情况下配置文件。

Answer 1

如果您使用的是Mysql，那么这将起作用：

my $dbh = DBI->connect("dbi:mysql:mysql_read_default_file=$config_file;mysql_read_default_group=$group",undef,undef,{});

配置文件应该是这样的：

[group_name]
database=my_db
host=X.X.X.X
user=my_user
password=my_password
port=XXXX
[another_group]
...