Expect.pm的expect()报“未定义子例程”错误，求修复Perl脚本

核心原因 #

错误提示明确说明givePd子例程未在脚本的主作用域（main包）中定义，但Expect模块执行expect()方法时尝试调用它。老脚本之前能运行，大概率是以下两种情况：

• 离职同事的脚本遗漏了givePd的定义（可能是误删、或原本在外部文件中引入但未随脚本移交）
• 旧环境的Expect模块版本允许隐式回调，新版本要求显式定义子例程

快速修复方案 #

直接在脚本的主代码区域（比如开头或expect()调用之前）添加givePd子例程的定义，作用是返回远程服务器的密码：

# 定义给Expect模块提供密码的子例程
sub givePd {
    # 替换为实际的远程服务器密码，建议不要硬编码
    return "your_remote_server_password";
}

更安全的密码处理（推荐） #

不要在脚本中硬编码密码，改用环境变量或配置文件读取：

sub givePd {
    # 从环境变量读取密码，避免硬编码风险
    my $password = $ENV{SCP_REMOTE_PASSWORD};
    die "请设置环境变量SCP_REMOTE_PASSWORD" unless $password;
    return $password;
}

运行脚本前先设置环境变量：

export SCP_REMOTE_PASSWORD="your_actual_password"

排查版本差异问题 #

1. 查看当前机器的Expect模块版本：

perl -MExpect -e 'print "当前Expect版本: $Expect::VERSION\n"'

2. 如果能访问旧机器，对比旧机器的版本。若版本差异较大，可尝试安装与旧环境一致的版本：
   • 先安装cpan工具：apt-get install cpanminus
   • 安装指定版本的Expect：cpanm Expect@x.y.z（替换x.y.z为旧机器的版本号）

长期替代方案（推荐） #

放弃密码认证的scp，改用SSH密钥对认证，彻底避免Expect处理密码的问题：

1. 在新机器生成SSH密钥对：

ssh-keygen -t ed25519

（一路按回车，不要设置密钥密码）
2. 将公钥复制到远程服务器：

ssh-copy-id your_username@remote_server_ip

3. 修改脚本，直接使用无密码的scp命令：

# 替换原有的Expect相关代码
system("scp your_username@remote_server_ip:/path/to/remote/file /local/target/path");

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