자신의 IP 알아내기

아래 스크립트는 자신의 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]