+ -
当前位置:首页 → 问答吧 → perl实现远程文件传输和执行命令一般怎么实现

perl实现远程文件传输和执行命令一般怎么实现

时间:2010-12-03

来源:互联网

perl实现远程文件传输和远程执行命令一般怎么实现?

文件传输实现像linux里的scp
远程执行命令像:ssh 192.168.1.1 "date"

作者: wtuter   发布时间: 2010-12-03

有段以前写的小程序,希望对你有用
  1. my $ssh = Net::SSH::Expect->new (
  2.             host => "ip address",
  3.             password=> 'password',
  4.             user => 'user',
  5.             raw_pty => 1,
  6.             timeout => 30,
  7.             log_stdout => 0
  8.         );
  9. $ssh->login();
  10. $ssh->exec("mkdir -p /home/databasebackups;");

  11. my $scp= Net::SCP::Expect->new(
  12.                                auto_yes=>1,
  13.                                host=>'ip address',
  14.                                user=>'user',
  15.                                password=>'password');
  16. $scp->scp("/home/homepage/filename1","databasebackups/filename2");

  17. $ssh->close();
复制代码

作者: bzdghdn   发布时间: 2010-12-03

回复 bzdghdn


   谢谢,正是我所要的

作者: wtuter   发布时间: 2010-12-03

热门下载

更多