Пара полезный приемов при написании скрипта

Здесь выкладываем скрипты
Правила форума
Уважаемые Пользователи форума, обратите внимание!
Ни при каких обстоятельствах, Администрация форума, не несёт ответственности за какой-либо, прямой или косвенный, ущерб причиненный в результате использования материалов, взятых на этом Сайте или на любом другом сайте, на который имеется гиперссылка с данного Сайта. Возникновение неисправностей, потерю программ или данных в Ваших устройствах, даже если Администрация будет явно поставлена в известность о возможности такого ущерба.
Просим Вас быть предельно осторожными и внимательными, в использовании материалов раздела. Учитывать не только Ваши пожелания, но и границы возможностей вашего оборудования.
Аватара пользователя
podarok66
Модератор
Сообщения: 4355
Зарегистрирован: 11 фев 2012, 18:49
Откуда: МО

Нзч, я там же сверялся, когда писал))


Мануалы изучил и нигде не ошибся? Фаервол отключил? Очереди погасил? Витая пара проверена? ... Тогда Netinstal'ом железку прошей и настрой ее заново. Что, все равно не фурычит? Тогда к нам. Если не подскажем, хоть посочувствуем...
Аватара пользователя
podarok66
Модератор
Сообщения: 4355
Зарегистрирован: 11 фев 2012, 18:49
Откуда: МО

Так, возник вопрос в процессе прижимания объема интернета среднему отпрыску. Вот такой вариант

Код: Выделить всё

 {:local u "1397/1289"; 
:put [:pick $u 0 [:find $u "/"]]}

дает в ответе 1397
А как получить число после слэша?


Мануалы изучил и нигде не ошибся? Фаервол отключил? Очереди погасил? Витая пара проверена? ... Тогда Netinstal'ом железку прошей и настрой ее заново. Что, все равно не фурычит? Тогда к нам. Если не подскажем, хоть посочувствуем...
Аватара пользователя
podarok66
Модератор
Сообщения: 4355
Зарегистрирован: 11 фев 2012, 18:49
Откуда: МО

Сам спросил, сам ответил

Код: Выделить всё

{:local u "1397/1289"; :put [:pick $u ([:find $u "/"] + 1) [:len $u]]}


Мануалы изучил и нигде не ошибся? Фаервол отключил? Очереди погасил? Витая пара проверена? ... Тогда Netinstal'ом железку прошей и настрой ее заново. Что, все равно не фурычит? Тогда к нам. Если не подскажем, хоть посочувствуем...
vqd
Модератор
Сообщения: 3605
Зарегистрирован: 26 сен 2013, 14:20
Откуда: НСК
Контактная информация:

Что же вы так этот метод то любите?

Ну вот так приятнее же:

Код: Выделить всё

[admin@Dude] > :global u {1397;1289}
[admin@Dude] > :put ($u -> 0)
1397
[admin@Dude] > :put ($u -> 1)
1289

[admin@Dude] > :global u {"rx"=1397; "tx"=1289}         
[admin@Dude] > :put ($u -> "rx")                   
1397
[admin@Dude] > :put ($u -> "tx")
1289




Есть интересная задача и бюджет? http://mikrotik.site
Аватара пользователя
podarok66
Модератор
Сообщения: 4355
Зарегистрирован: 11 фев 2012, 18:49
Откуда: МО

Ух, ну конечно приятнее. Ну спасибо, друг мой, очень даже интересный вариант...
Только вот 1397/1289 - это вывод от команды /queue simple get [find name=que1] bytes и разделитель там именно слэш. Нужен был именно результат Download.


Мануалы изучил и нигде не ошибся? Фаервол отключил? Очереди погасил? Витая пара проверена? ... Тогда Netinstal'ом железку прошей и настрой ее заново. Что, все равно не фурычит? Тогда к нам. Если не подскажем, хоть посочувствуем...
Ответить