Gauche-makiki で netstatの結果を表示してみる

Lisp

こないだからGaucheで遊んでいます。
さわり初めてとってもわかりやすい印象。

  • lambda を ^ でかけるとか知らなかった。
  • いろいろなライブラリが最初からたくさんあって楽。
  • ドキュメントがそろっていて初心者でも入りやすい


いろいろ試行錯誤してこんな感じにするとブラウザでnetstat の結果を表示できたのでメモ。
結果を出すだけじゃなくて もうちょっとごにょごにょしたいな。

;; '/echo-header' reports back http request headers, handy for diagnostics.
(define-http-handler "/test"
  (^[req app]
    (respond/ok req
        (html:html
            (html:body
                (html:pre
                    (string-join (cmd-call '(netstat -an)) "\r\n")))))))


(define cmd-call
    (^(cmd)
        (process-output->string-list cmd)))