Anonymous user
MAC vendor lookup: Difference between revisions
added Tcl
Alpha bravo (talk | contribs) (Added AutoHotkey) |
(added Tcl) |
||
Line 213:
FC:FB:FB:01:FA:21 Cisco Systems, Inc
D4:F4:6F:C9:EF:8D Apple, Inc.</pre>
=={{header|Tcl}}==
<lang Tcl>package require http
# finally is a bit like go's defer
proc finally args {
tailcall trace add variable :#finally#: unset [list apply [list args $args]]
}
# basic wrapper for http::geturl
proc geturl {url} {
set tok [::http::geturl $url]
finally ::http::cleanup $tok
::http::data $tok
}
proc maclookup {mac} {
geturl http://api.macvendors.com/$mac
}
foreach mac {00-14-22-01-23-45 88:53:2E:67:07:BE} {
puts "$mac\t[maclookup $mac]"
}</lang>
{{out}}
<pre>00-14-22-01-23-45 Dell Inc.
88:53:2E:67:07:BE Intel Corporate</pre>
=={{header|zkl}}==
|