2008-01-01から1年間の記事一覧

cperl-modeの配列、ハッシュ、配列ref、ハッシュrefのインデントスタイル

emacs cperl-modeで、複数行にまたがる配列、ハッシュ、配列ref、ハッシュref定義の インデントがwhileや関数定義と同様のインデントスタイルになるようにしたい。 whileや関数定義と同様に while ($some_cond) { somefunc1(); somefunc2(); } 以下のような…

[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

[Scuttle] Scuttleで別ユーザでloginしていた件

Scuttleを使っている際に、いつの間にか別ユーザでloginしているという障害が発生。 とんでもないバグだとあせっていたのだが・・・ 原因は以下のとおり 同一サーバで二つのscuttle(scuttleA, scuttleB)を同時に立ち上げた。 scuttleAで利用していたCookieが…

Catalystのforwardで引数をPATHに含めるときの注意

Catalystでforwardを実行するとき引数をPATHに含めることができる。 $value = 3; $c->forward("/bar", [ $value ]); $c->forward("/bar/$value"); # PATHに含める どちらの場合でも以下のように値を取得できる。 sub bar : Private{ my ($self, $c) = @_; my…

`|| :' ?

`|| :' ってどんな意味があるのだろう?rpm -q --scripts memcached postinstall scriptlet (using /bin/sh): /sbin/chkconfig --add memcached preuninstall scriptlet (using /bin/sh): if [ $1 -eq 0 ]; then /sbin/service memcached stop &> /dev/null …