yuu_nkjm blog

[Java] spring frameworkのログ

jdk/jre/lib/logging.propertiesで無理矢理に解決．

[Kawa][Scheme] 文字列をReadしてEval

evalのスコープ

(define x "global")
(let ((x "local"))
  (eval 'x (interaction-environment))) ;; => global
 ;; (eval x)となる．xはレキシカルスコープの影響を受けない
 
(let ((x "local"))
  (eval x (interaction-environment))) ;; => local
 ;; 引数が先に評価され，(eval "local")となる．
 
(eval (+ 1 2))  ;; evalの前に(+ 1 2)が評価される．つまり(eval 3)
(eval '(+ 1 2)) ;; evalで(+ 1 2)が評価される

文字列をS式として読み込んで評価

(define p (open-input-string "(eval (+ 1 2))"))
(eval (read p)) ;; => 3
 
(define p (open-input-string "
;; http://www.geocities.jp/m_hiroi/func/abcscm10.html
(define (make-random seed)
    (define (irand)
        (set! seed (modulo (+ (* 69069 seed) 1) #x100000000))
        seed)
    (define (random) (* (/ 1.0 #x100000000) (irand)))
    (lambda (x)
        (cond ((eq? x 'irand) (irand))
              ((eq? x 'random) (random))
              (else #f))))
"))
(eval (read p))
(define prg (make-random 1))
(prg 'irand)
(prg 'irand)
(prg 'random)
(prg 'random)

[Windows][Linux][pgrep][pkill][taskkill][wmic][awk][netstat] Windows/LinuxコマンドTips

UnxUtils | SourceForge.netやHome · bmatzelle/gow Wiki，NT版UNIX-like toolsなどが導入されていることを前提．

実行コマンドを見てkill

wmic.exe process where "(Name='java.exe')" get ProcessId|xargs -n 1 taskkill /F /PID

実行コマンドと引数を見てkill

wmic.exe process where "(Name='java.exe') and (CommandLine like '%magcruise%')" get ProcessId|xargs -n 1 taskkill /F /PID

ポート8080を使っているプロセスを終了

netstat -aon | grep  0.0:8080|gawk "{print $5}"|xargs -n 1 taskkill /F /PID

メモリ使用量出力

ps aux | grep java | awk '{sum += $6}END{print sum/1000/1000}'