- 论坛徽章:
- 0
|
再用 Net::SCP::Expect 从local 传动到 Remote 的时候,发现用通配符发送文件时,程序没法解析出通配符。
但是,从Remote 发送到 local 时,就可以成功。
程序如下:
use strict;
use warnings;
use Net::SCP::Expect;
my $host = '192.168.0.1';
my $usre = 'root';
$passwd = '123456';
my $scpe = Net::SCP::Expect->new(host=>"$host",user=>"$user",password=>"$passwd");
$scpe->scp("/root/*.log","/root")
}
说明: 我想把 local 的/root/*.log 所有文件,都传送到 remote 的 /root 目录去, 不成功,当在源码中开启debug机制时。
报错信息如下:
/root/*.log: No such file or directory
scp exited with non-success state: 256 at ./t.pl line 30
google了一下,用"\"注释掉*号,或者用单引号引起*号。均无效。
$scpe->scp("/root/\*.log","/root")
$scpe->scp("/root/'*'.log","/root")
但是,从 remote 发送到 local 时,用*号通配符时,就可行。
$scpe->scp("$host:/root/*.log","/root")
还有一个疑问, 用 Net::SCP::Expect 模块,可实现传送一个整目录吗?
还有,各位大虾,都喜欢用什么模块来实现文件传送的? 谢谢。。。 |
|