linux - Perl 期望代码不适用于设置密码

Question

我正在使用 perl 希望在交互式程序中输入密码。Perl 正在输出正确的密码，但设置了其他密码。

#!/bin/perl

use Expect;

my $hostname = qx! /usr/bin/hostname !;
my $Passwd = `./ensite_passwd solidcore $hostname`;

my $sadminPasswd = quotemeta $Passwd;
chomp $sadminPasswd;
chop $sadminPasswd;

print "password is $sadminPasswd \n\n";

my $sadminPasswd = Expect->spawn("/sbin/sadmin", "passwd")
        or die "Cannot spawn /sbin/sadmin $!\n";

 $sadminPasswd->expect(300,
              [qr/New Password:/ => sub {
                 my $fh = shift;
                 $fh->send("${sadminPasswd}\n");
                 print "sent '${sadminPasswd}'\n";
                 exp_continue;
               }
              ],
              [qr/Retype Password:/ => sub {
                 my $fh = shift;
                 $fh->send("p2c4f8j5\n");
                 #$fh->send("${sadminPasswd}\n");
                 #print "sent '${sadminPasswd}'\n";
                 print "sent 'p2c4f8j5'\n";
               }
              ]);


   $sadminPasswd->soft_close();

我得到以下输出：

swdvssd0046$ sudo perl test.pl
password is p2c4f8j5 

New Password:sent 'Expect=GLOB(0x23ae188)'

Retype Password:sent 'p2c4f8j5'

Passwords do not match.
swdvssd0046$ 

我根本不明白'Expect=GLOB(0x23ae188)'。我知道这个主机的密码是“p2c4f8j5”，这就是为什么我在确认密码期望代码中手动输入它的原因。知道我错过了什么吗？

Answer 1

使用警告；...“我的”变量 $sadminPasswd 掩盖了同一范围内的早期声明

感谢工具回答！