Question

如何使用Perl SCP验证远程服务器上的复制文件，还是可以？下面是我正在使用的Perl命令。我无法使用SSH因此我的选择有限。

$scpe->scp("/u02/oraclebackup/$tar_file","HOST:/u04/orabkup/oraclebackup/oemp/");

Answer 1

好的我已经找到了解决我的问题的方法，虽然它没有直接验证副本，但是如果在预期的那个旁边出现错误，它将停止脚本。这是我的代码：

$scpe->error_handler( \&scp_errors );
$scpe->scp( "/u02/oraclebackup/$tar_file",
    "HOST:/u04/orabkup/oraclebackup/oemp/" );

#Error trapping with exception for known harmless error
sub scp_errors {
    my $line = shift;

    if ( $line =~ /scp timed out while trying to connect to/ ) { 
        return (0);
    } else {
        return (1);
    }   
}

这似乎解决了我的两个问题。谢谢@chrsblck

使用Perl和SCP验证复制的文件

1 个答案: