You are here

자신의 IP 알아내기

admin의 아바타
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]

포럼: