умереть при запросе пароля в Perl

Question

У меня есть скрипт, который использует ключ ssh для подключения к удаленному серверу для конкретного пользователя. Однако, если информация о пользователе изменена, а ключи не обновлены, скрипт будет зависать в ожидании пароля.

Как я могу перехватить это и бросить DIE при запросе пароля?

Например, если я использую:

system("ssh -C USER@someserver.com -i /.ssh/USER.key ...");

и USER - это не то же самое USER в USER.key, оно зависает в ожидании пароля. Я бы предпочел, чтобы он умер.

Каков наилучший способ справиться с этим без использования модуля perl?

Answer 1

Попробуйте это:

system('ssh -o BatchMode=yes -C USER@someserver.com -i /.ssh/USER.key ...');

Опция BatchMode не позволяет ssh запрашивать пароли и просто прерывается, если требуется пароль.

Answer 2

Когда вы используете system таким образом, вы отказываетесь от управления до ssh.Я рекомендую вам взглянуть на опции для ssh.

Кроме того, вы должны использовать предупреждения .

Answer 3

Рассматривали ли вы использование каких-либо SSH-модулей, доступных в CPAN, как Net :: SSH2 или Net :: OpenSSH?