>[оверквотинг удален]
>>> Задача: средствами маршрутизатора Cisco определить наличие потерь пакетов выше заданного.
>> Скрипт на TCL. Пусть хоть постоянно крутится.
>> Но! Как это скажется на загрузке процессора и памяти неизвестно.
> И еще требует вникания в TCL. Как дать из скрипта команду ping
> - понятно, а вот не просто глазами посмотреть результат, а вернуть
> результат в скрипт, посмотреть скриптом кол-во потерь и на основании этого
> принять решение и инициировать дальнейшие действия (изменение маршрута) - это для
> меня уже за гранью добра и зла.
> Вроде, есть штатное средство - SLA - и то, что надо, в
> принципе выдает, но заставить работать как хочется не получается.

Можно так, потом EEM ловить сообщения в логе.

proc init {} {
set ip_source 1.1.1.1
set ip_dest   2.2.2.2
set loss_limit 99
set search_expr {(\d+)(?:\spercent)}
set r ""
set s_rate 0
    set status [exec "ping $ip_dest source $ip_source repeat 1000"]
    regexp  $search_expr  $status r s_rate
    if { $s_rate < $loss_limit} {
        writelog "Все пропало!!!"
        }
}
proc writelog {logstring} {
    set syslog [open "syslog:" w+]
    puts $syslog $logstring
    close $syslog
}
eval init