如何让Perl脚本仅首次获取用户名密码，后续调用子例程时复用？

完全可行，你可以通过以下几种方式实现凭据复用，避免每次调用connect子例程都重复输入：

方法一：使用状态变量（推荐，Perl 5.10+） #

利用Perl的state关键字声明子例程内的变量，这类变量会在子例程多次调用间保留值，无需依赖全局作用域：

use Term::ReadKey;

sub connect {
    state ($user, $pwd); # 状态变量，跨调用保留值

    # 仅当未获取过凭据时提示输入
    if (!defined $user || !defined $pwd) {
        print "\n  Please enter username:";
        $user = <>;
        chomp($user);

        print "  Please enter password:";
        ReadMode 'noecho';
        $pwd = <STDIN>;
        chomp $pwd;
        ReadMode 'normal'; # 务必恢复终端回显，避免后续输入异常
    }

    # 后续连接逻辑直接使用$user和$pwd
    # ...
}

第一次调用connect()时会触发输入提示，之后的调用会直接复用已存储的凭据。

方法二：使用全局变量 #

在子例程外部声明全局作用域的变量存储凭据，子例程内部检查变量是否已赋值：

use Term::ReadKey;

my ($global_user, $global_pwd); # 全局变量

sub connect {
    if (!defined $global_user || !defined $global_pwd) {
        print "\n  Please enter username:";
        $global_user = <>;
        chomp($global_user);

        print "  Please enter password:";
        ReadMode 'noecho';
        $global_pwd = <STDIN>;
        chomp $global_pwd;
        ReadMode 'normal';
    }

    # 使用全局变量中的凭据执行连接逻辑
    # ...
}

注意：全局变量可能在脚本其他部分被意外修改，需谨慎使用。

方法三：提前获取凭据并传参 #

在脚本初始化阶段一次性收集凭据，之后每次调用connect时将凭据作为参数传入：

use Term::ReadKey;

# 脚本开头先收集凭据
print "\n  Please enter username:";
my $user = <>;
chomp($user);

print "  Please enter password:";
ReadMode 'noecho';
my $pwd = <STDIN>;
chomp $pwd;
ReadMode 'normal';

# 修改子例程以接收凭据参数
sub connect {
    my ($user, $pwd) = @_;

    # 直接使用传入的凭据执行连接逻辑
    # ...
}

# 三次调用均传入已获取的凭据
connect($user, $pwd);
connect($user, $pwd);
connect($user, $pwd);

这种方式逻辑更清晰，子例程不依赖外部状态，适合需要明确控制凭据传递的场景。

注意事项 #

• 无论采用哪种方式，输入密码后必须调用ReadMode 'normal'恢复终端回显，否则后续终端输入会无法正常显示。
• 如果脚本需要处理多组凭据，提前传参的方式灵活性更高。

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