yuu_nkjm blog

[UPS] オムロン BY50SとPowerAct Pro Windows版

PowerAct Pro Windows版をインストールしたが，WebUIに接続するのに手間取った． (cache) UPS (2)PowerActProのインストール～ UPSのモニターまで|Do It Ourselves! それ自分でやってみたらを参考にした．

• Apacheはインストール．ファイアウォールを空ける．
• http://127.0.0.1/cgi-bin/からのブラウザのポップアップを許可する．そうしないと，Web UIが立ち上がらない．
• UPSにログインするときは，ユーザ名は"Admin"，インストールしたときのパスワードを使う．

[CSS] CSSのTips

領域のリサイズ

以下のようにする．textarea以外のタグにも適用できる．

textarea{
  resize: both;
}

ある要素の子要素で最後のものをセレクトする

blockquoteの要素の子の中で最後の子を選択し，引用符のgifを背景にする．

blockquote  *:last-child {
     background-image: url(quote_end.gif);
     background-position: bottom right;
     background-repeat: no-repeat;
}

blockquote:before {background-image: url(quote_end.gif);}
blockquote:end {background: url(quote_end.gif);}

以前，子の最後の要素に適用するで頑張ったけど，こうやっても良かったか．IEだと非対応だけど．

[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}'

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