使用Perl Net::SSH::Perl检查远程目录是否存在
我想使用Net::SSH::Perl模块检查报告服务器上是否存在一个目录。
以下命令可行:
my($stdout, $stderr, $exit) = $ssh->cmd("ls -al /home/mydir");
但是我该如何做到像这样:
if ( ! -e "/home/mydir/mydir_1" ) {
mkdir "/home/mydir/mydir_1";
}
有没有使用这个Perl模块来实现这个功能的方法?
perl
,只需使用$ssh->cmd(qq{perl -wle 'exit -e shift' '$filename'})
,然后查看退出码。 - Corion