どう書く？org : echoクライアント

R doukaku.org

original page : http://ja.doukaku.org/199/

TCPのechoクライアントを書いてください。

* サーバのホスト名ないしIPアドレス、およびポートはコマンドライン引数で指定します。

* 標準入力からユーザの入力を受け取り、echoサーバに送信します。

* echoサーバから受信したデータを標準出力に出力します。

Windowsなら、Simple TCP/IP Servicesを起動してやれば、ローカルの確認用echo サーバとして使えます。

my_program localhost 7 < input_file > result_file

のようにしてリダイレクトを行った場合にも、result_fileがinput_fileの内容と一致するようにしてみてください。

#7120

original page : http://ja.doukaku.org/comment/7120/

こんな感じでしょうか。

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])