求助：Perl主文件变量无法在模块中访问，SQL查询变量值为空

这个问题我之前也碰到过，本质是Perl的命名空间隔离导致的——主脚本main.pl里的变量默认属于main命名空间，而你的sql.pm模块是独立的命名空间，直接引用肯定拿不到值。给你几个解决方案，按规范程度排序：

1. 最佳实践：通过函数参数传递变量 #

这是最规范、最易维护的方式，还能避免全局变量带来的隐患，同时推荐用DBI的占位符防止SQL注入：

在sql.pm中定义接受参数的子例程 #

package sql;
use strict;
use warnings;
use DBI; # 假设你用DBI操作数据库

sub fetch_business_data {
    my ($business_id) = @_;
    
    # 用占位符?代替直接拼接变量，更安全
    my $query = "SELECT * FROM YourTableName WHERE BusinessEntityID = ?";
    
    # 示例DBI执行逻辑（根据你的实际代码调整）
    my $dbh = DBI->connect("dbi:DriverName:database=your_db;host=your_host", "user", "pass") or die DBI->errstr;
    my $sth = $dbh->prepare($query);
    $sth->execute($business_id); # 把变量传给execute，DBI会自动处理转义
    my $result = $sth->fetchall_arrayref;
    $sth->finish;
    $dbh->disconnect;
    
    return $result;
}

1; # 模块必须返回true

在main.pl中调用并传递变量 #

use strict;
use warnings;
use sql;

my $business_id = 273;
my $business_data = sql::fetch_business_data($business_id);

# 后续处理结果...

这样你的查询会正确带上273，还能避免SQL注入风险，代码耦合度也低。

2. 访问主命名空间的全局变量（不推荐） #

如果实在不想改函数结构，可以直接在模块里引用main命名空间的变量，但这种方式会让代码耦合度变高，后期调试和维护麻烦：

# sql.pm中
my $query = "SELECT * FROM YourTableName WHERE BusinessEntityID = $main::business_id";

注意：主脚本里的变量需要是包变量（用our声明）而不是词法变量（my），否则模块还是访问不到：

# main.pl中
our $business_id = 273; # 用our声明为包变量

3. 导出变量（不推荐） #

你也可以在主脚本里导出变量到模块，但同样属于全局变量范畴，不推荐：

# main.pl中
use Exporter 'import';
our @EXPORT = qw($business_id);
our $business_id = 273;

# sql.pm中
use main; # 导入main的导出变量
my $query = "SELECT * FROM YourTableName WHERE BusinessEntityID = $business_id";

总结 #

优先选择参数传递+占位符的方案，既解决了变量访问问题，又保证代码的安全性和可维护性。

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