Почему неправильно парсится файл на микротик?

Question

[BadCat]

После парсинга в адрес листе следующая картина


Думаю что ошибка при парсинге последней строки, он записывает только первый символ, и перескакивает в начало файла записывая заново 1 строку. Ранее не работал со криптами на микроте. Пытался найти ошибку методом тыка ) Пока безуспешно.

Буду благодарен вашей помощи.

Comments

[Denis Melnikov]

Совет =) с ROS7, появился удивительно удобный API

Вот как добавляется адрес в ACL
На питоне каком нить, написать такое, в 10 строчек можно.
POST {{zt_url}}/rest/ip/firewall/address-list/add

{
    "list":"test_rest",
    "address": "1.1.1.1"
}

[BadCat]

Denis Melnikov, Мне самому не нравится этот длинный непонятный скрипт, так что я изначально более склонялся делать это на питоне. Чем сейчас и займусь скорее всего ) Просто посидев со скриптом около полу часа, хотя бы ради спортивного интереса хочу найти в чем там ошибка.
Благодарю за ваш совет :)

Answer 1

[MaxKozlov]

Как-то вы очень уж сложно парсите.

скрипт как функция. в отдельном файлике

########## 
#  Input: file name

:local fn $1
#:local fn "text.txt"

:local content [/file get $fn contents]
:local datalen [:len $content]
:local fi 0
:local idx 0
:local res [:toarray ""]

#:put $datalen

do {
  :local cr [:find $content "\n" $fi]
  if ([:typeof $cr] = "nil") do={
    :set cr $datalen
  }
#  :put "fi: $fi, cr: $cr, idx: $idx"
  :local line [:pick $content $fi $cr]
#  :put $line
  :set ($res->$idx) $line
  :set fi ($cr + 1)
  :set idx ($idx + 1)
} while ($fi <= $datalen)

:return $res

Использовать

:local file2array [:parse [/system script get func_file2array source]]; local lines [$file2array text.txt]; :foreach i in=$lines do={ :put $i }

Ну или всё в один скрипт запихнуть

p.s. а ошибка, наверное, где-то в районе :set lineEnd [:find $content "\n" $lastEnd ] ;
если ничего не нашлось, в переменную пишется nil, а тут никакой проверки на это и следующий поиск сначала начинается. зато есть странная проверка :if ( [ :len $content ] = 0 ) do={

Comments

[BadCat]

Вот так должно работать ?)

:local fn "text.txt"

:local content [/file get $fn contents]
:local datalen [:len $content]
:local fi 0
:local idx 0
:local res [:toarray ""]

:put $datalen

do {
  :local cr [:find $content "\n" $fi]
  if ([:typeof $cr] = "nil") do={
    :set cr $datalen
  }
  :put "fi: $fi, cr: $cr, idx: $idx"
  :local line [:pick $content $fi $cr]
  :put $line
  :if ( [:len $line ] > 0 ) do={ /ip firewall address-list add list=Test address=$line }
  :set ($res->$idx) $line
  :set fi ($cr + 1)
  :set idx ($idx + 1)
} while ($fi <= $datalen)

:return $res

[MaxKozlov]

TRX, Мне на своём проверять не хочется, но, по идее, должно.
только если вам возврат не нужен, то запись в массив res и его индекс idx не нужны. также как и return в конце

Answer 2

[Gregory]

вот может так удобнее будет
https://youtu.be/CdqLcYE-jq0

Comments

[BadCat]

Есть дефолтная возможность добавлять адреса из файла?

[Gregory]

TRX, незнаю)