Displaying 1 result from an estimated 1 matches for "hexudp".
Did you mean:
hexdump
2005 Apr 14
0
Finding an available port for server socket
...Port <- function(){
## find a port that R can listen on
## just returns 40001 on Windows
portsInUse <- 0
os <- as.vector(Sys.info()["sysname"])
if(os == "Linux"){
hexTcp <- system("cat /proc/net/tcp | awk '{print $2}'", intern = T)
hexUdp <- system("cat /proc/net/udp | awk '{print $2}'", intern = T)
portsInUse <- hex2numeric(gsub(".*\:", "", c(hexTcp[-1], hexUdp[-1])))
}
if(os == "SunOS"){
## use a locally written script that massages output from netstat
portsIn...