perl实现scp的功能

ppiqq

各位大侠
如何使用perl实现scp呢？
在进行SCP操作调用的时候，实现输入用户名和密码

谢谢大家 我安装好了 但是这个调用的好像还有问题，求大哥们不吝指教
#!/usr/bin/perl
use strict;
use Net::SSH:erl;
   my $ssh = Net::SSH:erl->new("192.168.1.5",port => "2121";
   $ssh->login("test", "123456789" );

这个程序是可以执行了 但是好像是DO NOTHING！

[ 本帖最后由 ppiqq 于 2008-6-17 14:10 编辑 ]

ulmer

If you want to use Perl-SCP function only, the simple CPAN module Net::SCP::Expect is recomended.
It's the sameway run as scp.
1. install CPAN Net::SCP::Expect
2. read perldoc Net::SCP::Expect for howto use it.
3. Sample code:

use Net::SCP::Expect;
my $scpObj = Net::SCP::Expect->new(host=>’host’, port=>'port', user=>’user’, password=>’xxxx’);"
# local ’file’ copied to ’host’ at ’/some/dir’"
$scpObj->scp(’file’, ’/some/dir’);  

ppiqq

[root@localhost ~]# perl -MCPAN -e shell
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v1.7601)
ReadLine support available (try 'install Bundle::CPAN')

cpan> install Net::SSH::perl

CPAN: LWP::UserAgent loaded

但是安装的好像不对啊 它在装的是Class::ErrorHandler -- 0.01
Class::Loader -- 2.03
Convert:EM -- 0.07
Crypt::Blowfish -- 2.10
Crypt::CBC   -- 2.29
Crypt:ES   -- 2.05
Crypt:ES_EDE3 -- 0.01
Crypt:SA   -- 0.14
Crypt::IDEA  -- 1.08

ppiqq

#!/usr/bin/perl
use strict;
use Net::SSH:erl;

my $ssh = Net::SSH:erl->new("192.168.1.5";
$ssh->login("test", "123456";

    $ssh->cmd("ls -l";
    $ssh->cmd("echo hello";


老大们 感激不尽
在这个里面怎么指定端口哦，我用的不是默认的22

cobrawgl

你仔细看看文档，里面有怎么指定端口的说明。

ppiqq

谢谢cobrawgl    大哥 我再看看

ppiqq

cobrawgl    大哥我找不到

cobrawgl

Usage of Net::SSH::Perl is very simple.

Net::SSH::Perl->new($host, %params)
To set up a new connection, call the new method, which connects to $host and returns a Net::SSH::Perl object.

new accepts the following named parameters in %params:


......

port
The port of the sshd daemon to which you wish to connect; if not specified, this is assumed to be the default ssh port.

......

_____________

so lazy

ppiqq

#!/usr/bin/perl
use strict;
use Net::SSH:erl;
   my $ssh = Net::SSH:erl->new("192.168.1.5",port => "2121";
   $ssh->login("test", "123456789" );
   $ssh->cmd("ls -l";
   $ssh->cmd("echo hello";



----------------------------------------------------------
[root@localhost perl]# ./ssh.pl
Can't locate Math/Pari.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Util/SSH2MP.pm line 6.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Util/SSH2MP.pm line 6.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Util.pm line 56.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Kex/DH1.pm line 10.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Kex.pm line 6.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/Kex.pm line 6.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 6.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 6.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 54.
[root@localhost perl]#

是不是我的模块少了 还是我这样用就不对滴？？？

apile

Can't locate Math/Pari.pm in @INC
Install this first