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 …

[PHP][MySQL][scuttle] scuttle install trouble

RHEL4, Centos5にOSSのSocial Bookmark Toolであるscuttleを導入しようとしたところ、 画面に何も表示されないトラブルが発生した。 原因は、単純でphp-mysqlが入っていなかったこと。。なのでphp-mysqlをinstallするだけで解決した。 yum install php-mysql…

[Gmail] Gmail Manager

http://homepage3.nifty.com/ysk_f/review/GmailManager.html複数アカウントの管理用にGmail Managerを利用。ずいぶんと快適になった。

[CPAN] Getopt::Long

職場の環境では、RHEL4とCentOS5が混在しているのだが、 CentOS5で書いたスクリプトがRHEL4で跳ねられた。原因は、Getopt::Longのversion CentOS5: 2.35 RHEL4: 2.34 2.35では以下の書き方ができる。test.pl --dst host1 hose2 host3 -- cmd GetOptions ("se…

[CPAN][RPM] cpanspecはvendor_perlにinstallする

cpanspec試す http://d.hatena.ne.jp/woremacx/20070804/1186202588を見て、cpanspecを使ってみた。 cpanspec --follow Compress::Zlib でdependencyも考慮して、CPAN moduleをdownloadしてSPEC fileも作ってくれる。とりあえず、downloadしたmodule群を強制…

Catalyst::Plugin::Session

CatalystのApplicationをmod_perl経由で起動しているのだが、 ある時からapacheのログに下記のエラーが発生するようになった。 [Wed Jul 11 19:37:16 2007] [error] handler MyAPP didn't return a valid return value! 本エラーが発生するhostと発生しない…

ポッドキャストサービスのcastellaさん、動画デジカメ欲しい!

ポッドキャストサービスのcastellaさん、動画デジカメ欲しい!これも欲しい。最近デジカメ(IXY 30)が壊れてしまって、写真が全体に赤白色に移ってしまう。 ものまね王国『こどもどらごん』 http://www.castella.jp/detail_out?channel_id=39054&cid=hatena_b…

ナナオのカラーユニバーサルデザイン対応ワイドモニターが欲しい!

ナナオのカラーユニバーサルデザイン対応ワイドモニターが欲しい!高解像度液晶ディスプレー欲しい・・

マージンFXのひまわり証券さん、ニンテンドーDS Lite欲しい!

欲しいです。まじで。マージンFXのひまわり証券さん、ニンテンドーDS Lite欲しい!

MS

こういう会社の感覚はうらやましいなぁ。 MicrosoftのトップエンジニアがWindows Vistaチームに週末用の課題を出した。コードからバグを見つけ出し、これを修正したエンジニアは、100ドルを獲得できるというものだ。 さらに、Vistaの最新ビルドを自宅のマシ…

Ajaxイン・アクション欲しい!

キャンペーン中のようです。 「Ajaxイン・アクション欲しい! 」 でも、かって読めてない本がたくさんあるから、 ちゃんと活用しないとだめだ・・・

GameのWeb2.0化

ユーザーの作ったアイテムや生物、惑星の3Dモデルは、ゲーム機からのアクセスでないと意味を持たないが、Webからそれらの画面写真を眺められるとか。無茶なことをいえば、MMORPGを遊んでいると、そのプレイ動画がずっと録画され続けていて、会員でない相手に…

Communicationのlocal化

mixi はコミュニケーションを加速するために、情報共有を減速してるんじゃないだろうか。 これって、結構深い問題では無かろうか? すべてが透明化されてあらやる情報が手に入れられる状態になると、 本当に優秀な人以外の存在意義が無くなってくる。私は、m…

大企業の情報管理

ネット上では、いろんな便利なサービスがでていますが、 大企業はそれを活用できるのだろうか?たとえば、はてなグループとか。 情報漏洩の危険を考慮して、E-Mailですら社外の転送が 禁じられる時代ですからねぇ。もぁ、だからこそ、イントラネット専用のい…

Livedoor Reader: ピンの保存機能

ピンの保存 ご要望の多かったピンの保存機能を実装しました。 ピンを開く前に誤ってウィンドウを閉じてしまった場合や、ピンはしたけれでも今は読む時間がないという場合でも、あとからlivedoor Readerを開けばそのときのピンが引き続き表示されます。 ピン…

Google Trend: Web2.0

[ネット]web2.0は目黒で熱いらしい。Google Trend Google Trend面白いですね。 http://www.google.com/trends?q=%22Web+2.0%22%2C+Web2.0&ctab=2&geo=all&date=all "Web 2.0"とWeb2.0を比較してみると、日本は、Web2.0が圧倒的だけど、英語圏では、Web 2.0が…

b.hatena tag

Googleが"go"でauto completeされないという理由だけで、goo tagを消してしまった・・ MicroFormatsが"mi"でauto completeされないので、MicroSoftをMSタグに変更した。

bit field

Bit Fieldを共用体メンバと利用する実験をしてみた。 #include <stdio.h> typedef unsigned short __u16; typedef struct{ __u16 d0:8, d1:4, d2:2, d3:1, d4:1; } bits_t; typedef union{ bits_t bits; __u16 all; } bf_t; typedef union{ __u16 d0:8, d1:4, d2:2, d</stdio.h>…

Livedoor Readerについて

これは、購読しているブログのエントリーをひとつひとつじっくり読みたい場合には、あまりよくないインターフェースだと思います。記事単位の未読管理がしにくい(できない?)し、ちょっとした操作ミスで購読取り消しになってしまう可能性も高い。だから、厳…

Livedoor Reader

乗り遅れましたが、Livedoor Reader私も使ってみました。 すばらしいですね。さすがma.laさんです。これまでは、Fresh Readerを使っていたのですが、 社内サーバのフィードを読むような用途でなければ、 個人的にはLivedoor Readerの方がよいですね。 キーボ…