aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Parse-an-IP-Address/AutoHotkey/parse-an-ip-address-1.ahk Normal file
View file

@ -0,0 +1,22 @@
ParseIP(Address){
return InStr(A_LoopField, ".") ? IPv4(Address) : IPv6(Address)
}
IPv4(Address){
for i, v in StrSplit(Address, "."){
x := StrSplit(v, ":")
num .= SubStr("00" . Format("{:X}", x.1), -1)
port := x.2 ? x.2 : ""
}
return [num, port]
}
IPv6(Address){
for i, v in StrSplit(Address, "]")
if i = 1
for j, x in StrSplit(LTrim(v, "[:"), ":")
num .= x = "" ? "00000000" : SubStr("0000" x, -3)
else
port := LTrim(v, ":")
return [SubStr("00000000000000000000000000000000" num, -31), port]
}

18
Task/Parse-an-IP-Address/AutoHotkey/parse-an-ip-address-2.ahk Normal file
View file

@ -0,0 +1,18 @@
data =
(
127.0.0.1
127.0.0.1:80
::1
[::1]:80
2605:2700:0:3::4713:93e3
[2605:2700:0:3::4713:93e3]:80
)
output := ""
loop, parse, data, `n, `r
{
x := ParseIP(A_LoopField)
output .= "input = " A_LoopField "`t>`t" x.1 . (x.2 ? " port : " x.2 : "") "`n"
}
MsgBox % output
return