Return IP Octet Function

RouterOS Scripting
15

search tag # rextended ip2array ip split octet

Uhm… I forgot that script…

Actualized version, always return one array with:
0: IP passed as parameter
1: 1st octet
2: 2nd octet
3: 3rd octet
4: 4th octet

:global ip2array do={
    :local ip [:toip $1]
    :local array [:toarray ""]
    :if ([:typeof $ip] != "ip") do={:return $array}
    :set ($array->0) $ip
    :set ip [:tonum $ip]
    :set ($array->1) (($ip >> 24) & 255)
    :set ($array->2) (($ip >> 16) & 255)
    :set ($array->3) (($ip >>  8) & 255)
    :set ($array->4) ( $ip        & 255)
    :return $array
}

example for print 2nd octet (49) from 85.49.74.128
:put ([$ip2array 85.49.74.128]->2)