linux - 预期模块的SCP无法正常工作

我在perl中编写了以下程序来自动执行scp命令。

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

但是文件传输没有发生。通常在控制台上，如果我尝试了相同的scp命令，则其工作正常。谁能解决这个问题

提前致谢!!..

最佳答案

使用Net::OpenSSH:

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

关于linux - 预期模块的SCP无法正常工作，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9614678/