用scp / SSH 不需要交互输入密码的Perl脚本该怎么写呢？？？

wdhans

我用Net::SSH:erl

#! /use/bin/perl -w
use Net::SSH:erl

my $host = "p.desktop";
my $uname = "name";
my $passw = "passw";

my $ssh = Net::SSH:erl->new($host);
$ssh->login($uname, $passw);

...

以上程序是从本站上看来的，但运行报错误：
relocation error : /opt/third-party/lib/.../Math/GMP/GMP.so :
undefined symbol : mpz_init_set_str

知道是 mpz_init_set_str 没定义，可是不知道怎么处理，是我安装的版本有问题吗？？（版本 5.6.0）

另外 Net::SCP 也能够设置用户名、密码么？？？
我看的资料里只看到设置用户名

各位高手一定要帮忙啊

hellwolf

用Expect模块

举个例子：

1. 
   
2.         yb_message "signing package $rpmfile";
   
3.         my $exp = Expect->spawn('rpm','--addsign',
   
4.                                 '--define',"_signature $_signature",
   
5.                                 '--define',"_gpg_name $_gpg_name",
   
6.                                 $_gpg_path?('--define',"_gpg_path $_gpg_path"):(),
   
7.                                 $_gpgbin?('--define',"_gpgbin $_gpgbin"):(),
   
8.                                 $rpmfile)
   
9.             or die "spawn sign package command failed:$!";
   
10.         $exp->expect(30,
    
11.                      [qr/^Enter pass phrase:/ => sub { my $exp = shift;
    
12.                                                        print '[SENDING PASSWORD]';
    
13.                                                        $exp->send("$passphrase\n");
    
14.                                                        exp_continue; }],
    
15.                      );
    
16.         return $exp->exitstatus();
    

复制代码

具体看Expect的手册

hellwolf

如果不用Expect,看样子是你的Net::SSH:: perl安装有问题，是自己编译安装的吗？

wdhans

不是，是原来安装带的，不清楚是否编译过
如果重新安装的话，需要哪些步骤呢

ulmer

HOwTO? => Using SSH/SCP + Perl without request of password.

One of the simplest ways is firstly use of ssh-keygen to generate pub.key in localhost
and copy this key to remotehost as authorized_keys, then you can use perl Module Net::SSH (simplest)
to access remotehost.

Step By step? If you are familiar with SSH, I can save my time.

Best,
    ulmer

-------
Just for fun