Я создаю синтаксический анализатор журналов, который может «транслировать» журнал в том виде, как он записан.
Журнал находится на удаленном хосте, поэтому я создаю обработчик файлов, используя комбинацию
SSH и хвост. Следующее работает довольно хорошо, но у меня есть некоторые вопросы, касающиеся обработки ошибок.
Если пользователь не введет пароль для подключения SSH до истечения времени задержки тревоги, тревога начнет срабатывать. Это приводит к тому, что консоль очищается, поэтому не ясно, нужно ли вводить пароль.
Если я введу неправильный пароль, я все равно включу сигнализацию, ведущую к очистке экрана, т. Д ...
Password:
Password:
Password:
Permission denied (publickey,keyboard-interactive).
Если я предоставлю несуществующее имя файла журнала, код продолжится ....
tail: cannot open `/path_to_log/mylog.logXXXX' for reading: No such file or directory
tail: no files remaining
Итак, мой вопрос: как лучше добавить дополнительную обработку ошибок? Кроме того, можно ли использовать модуль File :: Tail в сочетании с SSH, telnet, rlogin и т. Д. Для обеспечения той же функциональности?
Спасибо!
my $stopMsg = "Use CTRL+C to stop streaming at any time...\n";
my $SSH = sprintf "ssh %s@%s tail -f %s | ", $user, $host, $log;
printf "Log: %s\n", $log;
printf "Handle: %s\n", $SSH;
my $errMsg = sprintf "Couldn't establish SSH connection to \"%s\":",
$host;
open my $pipe, $SSH or error( $errMsg );
my $loadTime = time;
printf $stopMsg;
setSignalHandler( 'INT', sub{ stopAlarm( TRUE ); } );
startAlarm( $delay,
$interval,
sub { system "clear"; $handler->( \@sysLogArr ); printf $stopMsg; } );
while ( alarmHandlerSet() )
{
my $data = <$pipe>;
next unless defined $data;
mapSysLog( line => $data,
arrRef => $logRef,
varRef => \%sysLogVars,
dbRef => $dbRef );
}
clearSignalHandler( 'INT' );
sub error(@)
{
my $color = "BOLD";
$color = $CONFIG{errorPrinter} if ( $CONFIG{colorEnable} &&
defined $CONFIG{errorPrinter} );
color2PrinterRef( $color )->( "\nERROR: " );
printf "%s\n", shift;
printf " %s\n", $_ foreach ( @_ );
printf "Called From: %s::%d\n", (caller)[1], (caller)[2];
printf "\n";
exit EXIT_FAILURE;
}