perl - 如何确定用户是否在 perl 脚本中有 ssh key

Question

我在 tcsh 中有如下脚本，如下所示:

df=`ssh $some_server 2>/dev/null df $2 -k` 
echo $df

Perl 脚本运行此 tcsh 脚本，我有以下两个问题:

1. 第一个命令是做什么的？
2. 在运行此命令(例如，从 perl 脚本或 tcsh 脚本)之前，我如何确定我是否有 ssh key ？

据我了解，如果我没有 ssh key ，它会要求输入密码。如果用户没有 ssh key ，我想向他打印一条基本警告。

Answer 1

当 ssh 无法与服务器建立连接时，它不会告诉您原因，但您可以在详细模式下运行它，然后分析输出。

例如，使用以下命令:

ssh -vvv -i $path_to_key -o BatchMode=yes \
    -l $remote_user $remote_host echo ok 2>error.log

然后，如果失败，请检查 error.log 以了解问题的原因。

请注意，调试输出可能会在不同的 ssh 版本之间发生变化，因此任何依赖它的解决方案都不会非常健壮。您应该将其视为一个提示。