2008-06-01から1ヶ月間の記事一覧

[linux][network][tool] nettop

yum install nettopnetworkの統計データをtopの用に表示してくれるsudo /usr/bin/nettop %pkts total %size total sz/pkt bit/s type 100.00% 284.0 100.00% 62.5k 225 12.8k total 71.12% 202.0 88.57% 55.3k 280 11.9k |-ipv4 36.26% 103.0 73.33% 45.8k 4…

[bash][ssh] sshのPATH

ssh経由でのコマンド実行時には.bash_profileは呼び出されない。 ssh経由でも有効になるPATH設定をしたい場合は.bashrcで設定した方がよい目的に応じて以下のファイルを使い分ける。 file shell ssh .bash_profile ○ × .bashrc ○ ○ .ssh/rc × ○

[perl] mapではまり中

二つの違いがよく分からない0が返るときと返らないときの違いは何? perl -le 'print map { $_ if (!$seen{$_}++) } qw(1 1 2 2);' 12 perl -le 'print map { $_ if ($_%2) } qw(1 1 2 2);' 1100 分かった! 単純に論理否定(!)演算子が値を返さないからだ $ p…

[perl] プロセスグループの殺し方

コマンド起動プロセス以外のプロセスから子供含めて殺したい場合 1. 該当プロセスをプロセスグループリーダにしておく setpgrp(0,0); 2. 子プロセスなどを生成 3. 新しく作成したプロセスグループにシグナルを送出 kill SIGNALNAME, -$$ # プロセスグループ…

Ctrl-Cで送出するsignalの動作確認

Ctrl-Cだとプロセスグループ(リーダプロセスとその子供達)にSIGINTを送る。 $ perl get_signal.pl fork child=24151 parent=24150 #Ctrl-Cを押す get signal INT in 24150 get signal INT in 24151 これは、kill -INT -24150とした場合と同じ。 kill -INT 2…

[perl] mapで条件によってgrepの用に値をとばす。

空の配列 () を返せば、skipされる。 $ perl -e '@a = map { ($_%2) ? 1: () } (1..5);print "values=".join(",",@a)."\n"; print "count=".scalar @a."\n"' values=1,1,1 count=3 0, undef, ""ではだめ。どれもその値になる。 [kenshin@house4 ~]$ perl -e …

Screen 使ってDaemon起動

iperf -sをscreenで実行後すぐにdetach。session名はiperf screen -S iperf -d -m iperf -s 二重起動防止 screen -ls iperf || screen -S iperf -d -m iperf -s 後から状態確認したくなったら screen -r iperf