Tcl & Tk/팁 (Tip)
자신의 IP 알아내기
티클러
2025. 3. 17. 14:37
아래 스크립트는 자신의 IP를 알아내는 스크립트입니다.
proc myip {} {
set myip {}
foreach a {a b c d e f g h i j k} {
catch {
set external [socket $a.root-servers.net 53]
set myip [lindex [fconfigure $external -sockname] 0]
close $external
}
if { ![string equal $myip {}] } { break }
}
return $myip
}
puts [myip]