Использование регулярных выражений в Mikrotik и создание функций поиска с возвращаемыми значениями

Mikrotik может осуществлять поиск с помощью регулярных выражений, возвращая логическое значение. Эта ссылка https://wiki.mikrotik.com/wiki/Manual:Regular_Expressions содержит информацию о возможностях поиска по регулярным выражениям. Как всегда, информация очень краткая. Часто необходимо получить именно найденную подстроку. Ниже я предлагаю свой скрипт, который возвращает не только саму найденную подстроку, но и позиции её начала и конца. #использование: [$findPosix Строка Регулярное выражение Начальная позиция] #возвращаемый массив: {НайденаПодстрока; НачальнаяПозиция; КонечнаяПозиция} :global findPosix do={ :local string [:tostr $1]; :local posix $2; :local posix0 $posix; :local fstart [:tonum $3]; :local fend 0; :if ($fstart < 0) do={ :set fstart 0 }; :local substr [:pick $string $fstart [:len $string]]; :if ([:len $string] > 0 && [:len $posix] > 0 && $fstart < [:len $string] && ($substr ~ $posix)) do={ :while ($fstart < [:len $string]) do={ :set posix $posix0; :if ([:pick $posix 0] != "^") do={ :set posix ("^".$posix); :local continue true; :while ($continue && $fstart < [:len $string]) do={ :if ([:pick $string $fstart [:len $string]] ~ $posix) do={ :set continue false; } else={:set fstart ($fstart + 1);}; } } :if ($fstart < [:len $string]) do={ :if ([:pick $posix ([:len $posix] -1)] != "\$") do={ :set posix ($posix."\$"); :local continue true; :set fend [:len $string]; :while ($fend > $fstart && $continue) do={ :if ([:pick $string $fstart $fend] ~ $posix) do={:set continue false} else={:set fend ($fend - 1)}; } } else={:set fend [:len $string];} } :if ($fend > $fstart) do={:return {[:pick $string $fstart $fend]; $fstart; $fend};}; :set fstart ($fstart + 1); :set fend 0; :put "Неопределенная ошибка"; } } :return {[]; []; []}; }; используйте: сохраните вышеуказанный скрипт с именем ScriptFindPosix в вашем скрипте: /system script run ScriptFindPosix; # Эта команда может быть выполнена при загрузке маршрутизатора для инициализации глобальной переменной FindRegex, которая будет хранить функцию поиска :global findPosix; # объявление глобальной переменной #-----------------Например, найдем дату в строке ----- :local DateString "date: jan/01/2019 01:02:03"; :local regex "[a-z][a-z][a-z]/[01][0-9]/[0-2][0-9][0-9][0-9]"; :local startPosition 0; :local ArrRezult [$findPosix $DateString $regex $startPosition]; # возвращаемое значение: ArrRezult — массив {НайденаПодстрока; НачалоПозиции; КонецПозиции} :local FoundSubString [:pick $ArrRezult 0]; :local FoundPositionStart [:pick $ArrRezult 1]; :local FoundPositionEnd [:pick $ArrRezult 2]; :put "DateString=$DateString"; # DateString=date: jan/01/2019 01:02:03 :put "FoundString=$FoundSubString"; # FoundString=jan/01/2019 :put "FoundPositionStart=$FoundPositionStart"; # FoundPositionStart=6 :put "FoundPositionEnd=$FoundPositionEnd"; # FoundPositionEnd=17 Я приведу еще примеры использования: :put [$findPosix "time 01:02:13 3:04:05" ("[0-2]\?[0-9]:[0-5]\?[0-9]:[0-5]\?[0-9]"."\$")]; # 3:04:05;15;22 :put [$findPosix "IP address: 192.168.0.0" ("[0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?")]; # 192.168.0.0;12;23 :put [$findPosix "IP address: 192.168.0.0/24" ("[0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?")]; # 192.168.0.0;12;23 :local IPMASKposix ("[0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?(/[0-3]\?[0-9])\?"); :put [$findPosix "IP address AND mask if exist: 192.168.0.1/32" $IPMASKposix]; #192.168.0.1/32;30;44 :local IPMASKposix ("[0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?[.][0-2]\?[0-9]\?[0-9]\?(/[0-3]\?[0-9])\?"); :local arrFound [$findPosix "IP address AND mask if exist: 192.168.0.1/32" $IPMASKposix]; :put [:pick $arrFound 0]; # 192.168.0.1/32