kkobayashi #7120(2008/08/13 11:41 GMT) [ R ] Rating0/0=0.00
こんな感じでしょうか。
1 2 3 4 5 6 7 8 9
echo.client <- function(host.name="localhost", port.number=9999){ sock <- socketConnection(host=host.name, port=port.number) repeat{ writeLines(readLines(), sock) writeLines(readLines(sock, n=1)) } } argv <- commandArgs(trailingOnly=T) echo.client(argv[1], argv[2])
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#7120()
[
R
]
Rating0/0=0.00
こんな感じでしょうか。
echo.client <- function(host.name="localhost", port.number=9999){ sock <- socketConnection(host=host.name, port=port.number) repeat{ writeLines(readLines(), sock) writeLines(readLines(sock, n=1)) } } argv <- commandArgs(trailingOnly=T) echo.client(argv[1], argv[2])Rating0/0=0.00-0+
[ reply ]