如何在perl中读取我自己的配置文件

Question

如何使用.pl扩展名读取自己的配置文件？我已经使用require在我的脚本中读取该文件。但我不确定这是正确的方法吗？你能建议我怎么做吗？

当我在脚本中读取带有require的配置文件时，我得到的错误就像全局符号需要显式包名一样。怎么解决这个问题？

以下是示例：

这是我的配置文件：

$USERNAME="sach";
$PASSWORD="sach123";
$DBNAME="personal";
$HOST="localhost";
$LIST_OLD_FILES_FILE="old_files.txt";
$remove_files=1;
$File_path="/sach/";

以下是我在剧本中称呼它的方式：

require "config.pl" ;
$dbh = DBI->connect("DBI:mysql:$DBNAME:$HOST",$USERNAME,$PASSWORD) or 
     die "$dbh->errstr\n";

Answer 1

您可以使用do命令读入包含perl代码的配置文件。

do 'config.pl';