Question

I have written the following program for automating scp command in perl.

#!/usr/bin/expect
spawn scp hscpe@9.126.134.54:/home/hscpe/output.txt imt
set pass "jujsa32s"
expect {
        password: {send "$pass\r"; exp_continue
     }

But the file transfer is not happening. Normally on console if I tried the same scp command its working fine. Can anyone figure out the problem

Thanks in advance!!..

Answer 1

use Net::OpenSSH:

my $ssh = Net::OpenSSH->new('hscpe@9.126.134.54', password => 'jujsa32s');
$ssh->scp_get('/home/hscpe/output.txt', 'imt/output.txt');