squidは -k rotateでログローテートが行われる。 が、logfile_rotate を指定しないとローテートされない。 logfile_rotate 10とか書いたら # squid -k reconfigure # squid -k rotateすべし。

あるところに読み仮名の無い文字列 なデータがn件ありました。 俺 「読み仮名を入力するだけの簡単なお仕事が始まるお」 ボス 「それkakasiで」 そういえばそんな便利なものがありました。どうでもいいけどkakasiとかnamazuとか、変わった名前が多いよね。 …

perlのデータをJSONにしてjavascriptに食わせる。 #!/usr/bin/perl use strict; use warnings; sub say {print @_, "\n"} use Data::Dumper;sub p {warn Dumper @_;my @c = caller;print STDERR " at $c[1]:$c[2]\n\n"} use CGI; use JSON::XS qw/encode_jso…

追記 壮絶な勘違いでしたコメント欄参照。暑さで脳がやられていたということにしてください。 sub main { } は良くかいてたけど、 main: { } とかにすると main() しなくても動く にひりずむ::しんぷる - Re: Amazon のデカイ書影をダウンロードする これ知…

以前 メソッドの一覧を取得する - だるろぐ とかやったんだけど、rubyの p obj.methods みたいにしたい。ので package Foo; use strict; use warnings; sub new { bless {}, shift } sub hoge {} sub foo {} my $var_my = 1; our $var_our = 3; package UNIV…

以前 どんなに長いプログラムでもバグは1行だったりするでしょう。大変なのはその1行を特定すること。SQLは確認する場所は数カ所しかなく、きれいに書かれたSQLなら、バグはすぐに特定できるのです。http://twitter.com/Sikushima/status/12262803950 という…

買い物ついでに甘い物が食べたいつーことでデザート王国へ。 バイキングって綺麗に盛る事とか考えない。ひたすら食う。甘い物をこれでもかと。具体的にはケーキとかケーキとかケーキとか。 そしてここでもチキンピラフとかパスタとかの主食の方を多く食って…

前回ノリで書いたのをちゃんと書くとこんな感じですか。 package FormValidator::Lite::Constraint::Between; use FormValidator::Lite::Constraint; use Scalar::Util qw/looks_like_number/; rule 'BETWEEN' => sub { for ($_, $_[0], $_[1]) { die 'inval…

FormValidator::SimpleにはBETWEENというルールがある。やる事はそのまんま、値が範囲内に収まっているかを見る。 でFormValidator::Liteでもこれをやりたく。 package FormValidator::Lite::Constraint::Between; use FormValidator::Lite::Constraint; rul…

Data::ObjectDriver（以下DOD）でgroup byとかsumとかcountとかのmysqlの関数を使う場合は、Data::ObjectDriver::SQLのインスタンスを作ってそいつに色々オプションを指定した上でdriverを呼んでselect_oneしてやる。 my $st = Data::ObjectDriver::SQL->new…

% svn log -vは % git log --statが近い。 % svn log -rprevは % git diff HEAD~で。 gitでは HEAD は最新リビジョンを表し、 HEAD~ は最新から1個前のリビジョン。 HEAD~~ みたいに ~ を増やすと、更にその前のリビジョン。 ネタ % git shellと打つと おま…

memcachedでsetした値をさーtelnetでgetして見るとバイナリになって出てくるんだけど おまえは何を言っているんだと思いつつ。 環境とか一切聞いてないけど。 use strict; use warnings; use Data::Dumper; use Cache::Memcached::Fast; use Cache::Memcache…

たまにvimのヘルプの海をゆらゆらしてるんですが、以前面白いのを見つけたのでメモ。 :h usr_20 Note: is the universal "get out" key. Unfortunately, in the good old Vi pressing in a command line executed the command! Since that might be consider…

zshでcpするときにパスが長いとき 残念な人 % cp /path/to/file /path/to/file_org かっこいい人 % cp /path/to/file{,_org}bashは知らん。そもそもシェルの機能かも知らん。

任意のクラス・インスタンスで使えるメソッドを確認したいときrubyだったら p Class.methods p instance.methods なんだけどperlでもやりてえぇーって叫んだら http://twitter.com/kamipo/status/13900909851 どらどら。 package Hoge; use strict; use warn…

たまに渋谷〜原宿に友達と服の買い物に行っている。今日（5/8）も行ってきた。 で、表参道のセルフィユという店*1にもよく寄る。ここはジャムとかペーストとかディップとかフルーツソースとかを扱ってる店。 落ち着いてて雰囲気も良いし、かなり素敵で気に入…

windowsだと適当なツールで入れ替えられるけど、linuxだとxmodmapを使うらしい。 手順 xevでキーのkeycodeとkeysymを調べる 入れ替えたいキーについて設定を書く X起動時に読まれるファイルにそれを読み込ませる 注意 altとかctrlとかcapslockとかの、 他の…

http://favlook.osa-p.net/index.html と http://ja.favstar.fm/ が。ふぁぼったーは取りこぼしが多いし、よく落ちてるので。

perlで + とか - の、プラスとかマイナスの記号は加算・減算以外にも使えるんだけど +{}は無名ハッシュの宣言っていうソースはperldoc -f mapにあった - だるろぐ跡地 my $s = -hoge; - だるろぐ また知った。 use strict; use warnings; sub say {print @_,…

デモでパスワードが必要な時は - Practice of Programming Reviewによると、Windowsじゃ動かないようなのですが、Windowsの場合に使える代替モジュールは...なんかあるのかな？ 僕はターミナルにパス入れるときは Term::ReadPassword 使ってるんですが、 use…

2010/04/19 22:41 追記 ブコメでkamipoさんとa666666さんに「TMTで変数をエスケープさせたくない場合はencoded_string()使えばいい」と教えてもらったので修正。 ありがとうございます。 GitHub - hirafoo/piki: PlackとDBIx::SkinnyとText: :Fileで作ったwi…

http://vim-users.jp/2010/04/hack138/色々書いてある。 俺の場合は command! -bang -nargs=? Tmt setfiletype tmt として :Tmtでtmtファイルタイプを呼び出している。 vimは自分でコマンド作るときは1文字目は大文字にしなければならない制約がいやん。 あ…

毎度思うがそんな環境あるんですかとか思ってはいけません。 人間は複数居るのにアカウントは1個しかない環境で俺rcを使う為にやった事 - だるろぐ とか必要になるのかとか考えてはいけません。 でもまあせっかくそういう仕組みがあるんだから覚えといて損は…

甘い物大好きなので食い乱れてきた。パフェとかクリームとかケーキとか色々足りない。 スイーツ（笑）目当てだったけど、思ったより主食も美味かった。 ケーキとプリン的なのとゼリー的なのと何かの肉がめっちゃ美味かった。1時間半という制限があるけど、か…

画像投稿とか位置情報つけたりとかするtwitterとのマッシュアップサイトを利用してる人が沢山いるけど、そのサイトの利用者って、自分のtwitterアカウントのダイレクトメッセージを見られたり消されたり、パスワード変更されてアカウント乗っ取られたり、勝…

忘れた頃に必要になる。 # mount -t cifs -o uid=YOUR_UID,gid=YOUR_GID,file_mode=0644,dir_mode=0755,rw,noperm,credentials=/path/to/smbcredentials //WINDOWS_IP/TARGET_DIR /path/to/want_to_mount# cat smbcredentials usrename=WINDOWS_USERNAME pas…

また一つ知った。 use strict; use warnings; sub say {print @_, "\n"} my $s; $s= -hoge; say $s; $s= -+hoge; say $s; $s= -+-hoge; say $s; $s= -+-+hoge; say $s; % perl t.pl -hoge -hoge +hoge +hogeハイフン付きの裸の文字列。しかも+を付けると変わ…

GitHub - hirafoo/putweet: twitter on terminal いちいち専用にウィンドウアプリ見るのが面倒なので、以前からオレオレtwitterアプリを作って使っててたのをgithubに置いた。 ちょくちょく何か作っては晒してる俺が今まで晒さなかったのは まぁオレオレだし…

.screenrcに defscrollback 2000と書くと、c-a [ や c-a でスクロールバックモードに入ったときのバッファ量を設定できる。また、 screen screen screenと書くと、screen起動時、書いた数の分だけウィンドウが開いた状態でscreenが起動する。 ここで落とし穴…

会社で同僚が見つけてた。 use strict; use warnings; use Data::Dumper;sub p {warn Dumper @_;my @c = caller;print STDERR " at $c[1]:$c[2]\n\n"} my %h = qw/h hoge f foo b bar/; p \%h; for (values %h) { s/hoge/----------------/; } p \%h; % perl…