perl - Perl と SCP を使用してコピーされたファイルを検証する

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