Perl程序调用PM模块报错：未定义值上调用prepare方法失败

执行命令启动Perl脚本：

$ perl use_pkg.pl

程序运行到delFeedForDay子函数的$dbh->prepare($sql)语句时抛出错误：

Can't call method "prepare" on an undefined value at use_pkg.pl line...

一共4个核心问题导致报错：

• 变量作用域不匹配：PKG.pm中赋值的$dbh属于PKG包命名空间，主程序中直接调用的$dbh属于main主包命名空间，二者是完全独立的变量，主程序拿到的$dbh始终是未定义值，调用方法必然报错。
• 函数参数未接收：主程序调用SoxDBLogin时传入了4个数据库连接参数，但函数内部没有读取@_接收参数，传参逻辑完全无效。
• DSN配置笔误：连接串里写的data base带多余空格，ODBC驱动识别的正确键名是database，该问题会直接导致数据库连接失败。
• 未启用严格模式：两个文件都没加use strict; use warnings;，这类变量作用域错误、未定义变量使用问题无法在编译阶段提前暴露，直到执行数据库操作才触发模糊报错。
• 自定义包语法缺失：PKG.pm末尾缺少Perl要求的真值返回语句，会导致包加载异常。

1. 修复自定义包文件PKG.pm #

修复点：

• 启用严格模式和警告提示
• 正确接收传入的数据库连接参数，用my限定变量作用域
• 修正DSN连接串的键名笔误
• 把连接成功的数据库句柄作为返回值返回，不使用全局变量跨包传递
• 末尾补充包加载必需的真值返回语句
  修复后完整代码：

package PKG;
require 5.000;
require Exporter;
@ISA = qw(Exporter);
 
@EXPORT = qw(SoxDBLogin);  
use strict;
use warnings;
use DBI;

sub SoxDBLogin
{
    # 接收传入的连接参数，缺省值从环境变量读取
    my ($user, $pswd, $srvr, $dbName) = @_;
    $user     = $user || $ENV{"DBUSER"}; 
    $pswd     = $pswd || $ENV{"DBPSWD"}; 
    $srvr     = $srvr || $ENV{"DBSRVR"}; 
    $dbName   = $dbName || $ENV{"DBNAME"};

    printf STDOUT ("Program %s: DBUSER <%s>,  DBSRVR <%s>, DBNAME <%s>\n",$0,$user,$srvr,$dbName);
    # 修正DSN笔误：data base -> database
    my $DSN = "driver={ODBC Driver 17 for SQL Server};server=$srvr;database=$dbName;uid=$user;pwd=$pswd";
    my $dbh = DBI->connect("DBI:ODBC:$DSN") or die "Couldn't open database : $DBI::errstr\n";
    # 返回数据库句柄给调用方
    return $dbh;
}
1;

2. 修复主程序文件use_pkg.pl #

修复点：

• 启用严格模式和警告提示
• 定义主程序作用域的数据库句柄变量，接收SoxDBLogin的返回值
• 所有变量用my限定作用域，避免滥用全局变量
• 补充数据库连接关闭逻辑，修正printf格式化占位符写法
  修复后完整代码：

#!/usr/bin/perl
use strict;
use warnings;
use PKG;
use DBI;

# 主程序作用域的数据库句柄
my $dbh;

&main;

sub main
{
    &initialize;
    &delFeedForDay;
    # 用完关闭连接
    $dbh->disconnect();
}


sub initialize
{
    # 从环境变量读取连接参数
    my $user = $ENV{"DBUSER"};
    my $pswd = $ENV{"DBPSWD"};
    my $srvr = $ENV{"DBSRVR"};
    my $dbName = $ENV{"DBNAME"};

    # 接收登录函数返回的数据库句柄
    $dbh = &SoxDBLogin($user,$pswd,$srvr,$dbName);
}

sub delFeedForDay
{
    
    my $sql = "SELECT count(*) FROM [myDb].[dbo].[adp_users]" ;
    # 用已初始化的句柄调用prepare
    my $sth = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr";
    my $exStat = $sth->execute() or die "ERROR while query execution...exiting $DBI::errstr\n";
    
    my $data = $sth->fetchrow();
    printf STDOUT ("Data : %s \n", $data);
    
    $sth->finish();
}

修复后重新执行脚本，会先打印数据库连接参数信息，连接成功后正常输出查询到的count结果；如果数据库账号、地址、配置有误，会在连接阶段直接抛出明确的错误提示，不会再出现调用未定义值方法的模糊报错。

内容的提问来源于stack exchange，提问作者James Bond