How do I send passwd via Expect.pm w/o printing it clear text to screen

perlknight has asked for the wisdom of the Perl Monks concerning the following question: ⭐ (input and output)

I need to know if it's possible to print encode blanks or some other types of character while sending password to expect FH. If so, how? Thanks for your input.

                             
sub copyover {                  
        my $scp=Expect->spawn("/usr/bin/scp -r \"$srcpath\" ${dest_hos
+t}:$destpath");
        my $spawn_ok;           
        $scp->expect(30,        
                        [       
                         qr'ssword: ', 
                         sub {  
                                $spawn_ok=1;
                                print $scp ("password\n"); 
                                exp_continue;
                         } 
                        ],
                        [
                         qr'yes/no', 
                         sub {
                                $spawn_ok=1;
                                $scp->send("yes\n");
                                exp_continue;
                         }
                        ],
                        '-re', qr'[#>:] $', #'  
        ); 
        $scp->soft_close();
        return;
}
[download]

Originally posted as a Categorized Question.

Comment on How do I send passwd via Expect.pm w/o printing it clear text to screen Download Code

Replies are listed 'Best First'.
Re: How do I send passwd via Expect.pm w/o printing it clear text to screen⭐ by zengargoyle (Deacon) on Feb 24, 2002 at 20:10 UTC
I think you want: `[ qr'ssword: ', sub { $spawn_ok=1; $scp->stty('-echo'); # echo off print $scp ("password\n"); $scp->stty('echo'); # echo on exp_continue; } ],` [download] (untested, don't have Expect installed)	[reply] [d/l]
Re: How do I send passwd via Expect.pm w/o printing it clear text to screen by zengargoyle (Deacon) on Feb 24, 2002 at 20:52 UTC
Update: that might need to be `$scp->slave_pty->stty('-echo') and $scp->slave_pty->stty('echo')`. or you might need to use one of the `$obj->log_* or Expect::Log_* function/variables` to tweak what gets displayed where and when.	[reply] [d/l] [select]
Re: How do I send passwd via Expect.pm w/o printing it clear text to screen by perlknight (Pilgrim) on Feb 25, 2002 at 01:43 UTC
zengargoyle, thanks for taking the time to replied; it's just what I needed :-) Originally posted as a Categorized Answer.	[reply]


We don't bite newbies here... much
	PerlMonks