タイセイハウジーという不動産会社が最低だった

日記

タイセイハウジーという不動産で物件を決めたら色々酷かったという話。評判も調べず行ったのがまずかった。ここ最低。最悪。最初に言っとくと俺の不備が多い。それを分かった上で。最寄駅「物件から＊＊駅まで徒歩10分少しですねー」と言われた。この駅…

2011-01-19

picklesのプラグインとか

perl

http://d.hatena.ne.jp/hirafoo/20110112/1294766695 ではdispatcherを1個書いたけど、プラグイン2個増やしたのでどーせならまとめてしまえと。大したことは書いてない。そもそもFillInFormLiteの方は動いたけどEncodeCachedはutf8以外見てないっていう。G…

2011-01-12

Pickles-Dispatcher-Auto とか書き始めた

perl

20110119追記移行。以下参照。 http://d.hatena.ne.jp/hirafoo/20110119/1295444740 https://github.com/hirafoo/Pickles-Dispatcher-Autopicklesというwafの標準のdispatcherは各アクションにルーティングを割り当てなければいけない。つまりアクションが…

2010-12-23

must-revalidate で毎回リクエストを飛ばす

apache

このファイルだけはキャッシュせずに毎回リクエストを飛ばして欲しいんだあああーーーーーってなときに must-revalidate を使うといい。よく見るのは1x1 pxの透過gifとかね。何だかんだで使うこともあるでしょう。何を指定するかによってステータスコード…

2010-12-20

「TheSchwartzのサンプルも書いた」でmasterにmergeしてなかった

perl theschwartz

TheSchwartzのサンプルも書いた - だるろぐで、ブランチでTheSchwartzやってたんだけど、それをmasterにマージしてなかった、ただそれだけ。小ネタジョブの中で open my $fh, ">>", "hoge" or die $!; for (1..10) { $fh->print("$_ time"); sleep 1; } c…

2010-12-11

TheSchwartzのサンプルも書いた

perl theschwartz

http://d.hatena.ne.jp/hirafoo/20101205/1291562525 のGearmanサンプルに続いてTheSchwartzのサンプル。 GitHub - hirafoo/queuing_sample TheSchwartzとはキューイングの実装の一つ。Gearmanは全てがオンメモリだけどTheSchwartzはサーバにデータベースを…

2010-12-05

Gearmanのサンプルを書いた

perl gearman

perlでキューイングするにはGearmanかTheSchwartzを用いるのが主流。何となくGearmanのサンプルを書いた。 GitHub - hirafoo/queuing_sample何はともあれモジュールを入れる。 # cpanm Gearman::Server Gearman::Client Gearman::Worker プロセス管理キュ…

2010-11-06

PlackとText::Xslateでケータイからtwitterするwebアプリを書いた

perl mobile xslate plack twitter

公式のケータイ用のサイトが重いし落ちてる事が多いのでさっさと書いた。色々足りんけど自分用に使うにはこれで十分。 GitHub - hirafoo/filmoa: simple twitter web-app for mobile phone なおPlackとText::Xslate使ったとか書くと凄く聞こえるけど実際は…

2010-11-04

perlのスコープはブロック or ファイルなのだろうか

perl

ふとした拍子につまづいた。以下を1個のファイル、例えば t.pl にでも書いて実行する。 package Hoge; use strict; use warnings; my $h = 1; package main; use strict; use warnings; my $h = 2; warn $h; さあ実行結果を予測しよう。実行結果 % perl t.…

2010-10-31

gitにman / helpが無いので入れる

git

yumやaptitudeで入れた場合は知らんが、ソースからgitを入れた場合はman / helpが付いてこないので自力で入れる。最初から入れといてくれ。入れ方はソースの中のINSTALLに書いてある。 % wget http://kernel.org/pub/software/scm/git/git-1.7.3.1.tar.bz2…

2010-09-26

モバイルサイト作成tips

mobile

メモとかおさらいとか覚え書きとか。キャリアごとの特徴 docomo css読めない、guid面倒、クッキー食えない今更すぎるお約束。新しい方の機種では改善されてるのもあるからってそれがどうしたリダイレクトさせるとき、ステータスコードが301じゃないと「ペ…

2010-09-13

NACサービスという引越し業者が最悪だった

日記

以前、引越しのNACサービスという引越し業者を利用したのだけど、この下無く最低だった。運び出す際、段ボールにぶつかって横転させるそして知らん振り。あわよくば気付かれないままやりすごそうとしてた指摘してもヘラヘラしている。PCとかだったらど…

2010-09-13

countした結果をsumしたいらしい

mysql

会社でそういう方が居た。要は超簡略化すると select sum(count(1)) from table;的な事がしたいらしい（だった気がする未確認）。前やったなーと思いつつ記憶を掘り返して select case when id <> 0 then sum(id) else 0 end as result from guest;とレスし…

2010-09-11

google maps apiでジオコーディング

javascript

http://sites.google.com/site/gmapsapi3/Home/services この辺に書いてあるけど。住所から緯度と経度を得ようとか。 function setGeo() { var geocoder = new google.maps.Geocoder(); var address = document.getElementById('address').value; if (geoco…

2010-09-07

javascript入門中

perl javascript xslate

こんばんはjavascript1年生です。何か数ヶ月前にも似たような事やってた気がするけど気のせいということにする。 server.psgi use strict; use warnings; use Text::Xslate; use Plack::Builder; use Path::Class; use Encode qw/encode_utf8/; use JSON::X…

2010-09-04

vim -R -

vim

grep や ack で絞り込んだ結果を vim で開く - #生存戦略、それは - subtech vimのバージョンとかそもそもの設定とかが分からんのだけど、俺の場合。 vim 7.2.436 git grep -n しないとgFでその行に飛ばない何かしたら行番号出さなくても飛べるの？ vi -R …

2010-09-03

Plack::App::CGIBin から Plack::App::URLMap へ

perl

前回Plack::App::CGIBinを使ったのだけど、ボス「それ Plack::App::URLMap で」以下、理由。わざわざポートを別に空けるほどじゃない再起動・監視とかを高々1個のcgiのためにする？したい？仮に本体が死んだとして、gamだけ生き残っててどうしろととい…

2010-09-01

AUTOLOADって遅いんじゃね？と思ったけど

perl

use strict; use warnings; use Benchmark qw/:all/; our $AUTOLOAD; foo(); bar(); cmpthese( timethese(0, { normal => sub { normal() }, autoload => sub { autoload() }, }) ); sub call_foo { -foo } sub call_bar { -bar } sub normal { call_foo() e…

2010-09-01

google analytics mobile

perl

今までga.plを普通にCGIとして設置したことはあったけど、いわゆるバックエンドに実装した事は無かった。で、今回することに。出来るgamの設置は2つ。 ga.plをCGIで論外ハンドラ書くなりディスパッチ先のメソッド書くなりしてバックエンドで普通はこうす…

2010-08-28

git grep -l

git

gitにはgrepというコマンドがある。試すまでも無く意味は分かる。ある記述がされているファイルを全部vimで開くときはこんな事をしている。 vi `git grep "sub p " | cut -d ':' -f 1 |perl -p -e 's/\n/ /g'` http://twitter.com/hirafoo/status/222267498…

2010-07-28

Data::ObjectDriverでDBI->connectの\%attrを渡そう

perl data-objectdriver

透過キャッシュだのレプリケーションだの色々ドライバを書けるが、普通に使う分にはSYNOPSISの通りでいい。で、DBI->connectで使う%attr、例えば mysql_enable_utf8 を渡すのはどーすんのかなと思ってソース見たら use parent qw/Data::ObjectDriver::Drive…

2010-07-28

DBD::mysql を mysql_config を指定してインストールする

perl

毎回忘れるメモ。 mysqlをソースから入れたりして、パス通ってないところに入ってるときにDBD::mysqlを入れるときはこうする。 perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config毎回INSTALLを見ているが、そろそろ覚えた。

2010-07-24

記念品

yokohama.pm

今回のyokohama.pmでは受付にこんなのがあった。何故かもらってきた。

2010-07-24

Text::Xslate の秘密

perl

xslate って単語が、辞書ってもググっても分からんので作者に訊いてみた。 Q. xslateって何て意味なんですか？ A. XSで書いたTemplateを略してxslateです。なるほど謎が解けました。読みは「えくすれいと」だそうです。いつぞやのどこぞの会話俺「xslate…

2010-07-10

神飲み

日記

飲み会やってきました。背景最近神と会ってないから久々に顔でも見るかと思った。俺「飲みいかね」神「適当にメンツ集めといて」 404 誘う人 Not Found で、メンツ集めい言うって事はサシは望んでなかろうな、と思って俺からキャンセルった。実は某柔道…

2010-07-03

シャローコピーとディープコピー

データをコピーするときリファレンスをコピーするだけで参照先は同じコピーしたデータを変更するとコピー元も変更される全く同じデータを複製するコピーしたデータに何をしようとコピー元に影響は及ぼさないの2通りがあってコードだと use strict; use …

2010-06-30

spam botの来訪はお断りします(ﾟωﾟ)

apache

セッション不要でpostできるブツを置いておいたら、どうも海外のspam botにターゲットされたらしく、アレな文字列がひたすらpostされ続けていたことに気付いた。閉じてもいいブツだったのでサイトごと終了。http://d.hatena.ne.jp/hirafoo/20100205/1265375…

2010-06-29

配列の要素の最後のカンマ

javascript

perlでは @hoge = (1,2,); みたいに、配列の最後にカンマを付けてもエラーにならない。むしろ付けろやーってな規約もあるとかないとか。まあperlの場合は有っても無くても何も変わらないのだけど、javascriptだと話が違ってくる。 var hoge = [1,2,]; docum…

2010-06-27

クエリの無駄とかチューニングとか

perl mysql

2010-06-27

Data::ObjectDriverにDOD_TRACEが欲しい

perl data-objectdriver

perlのORMの中には hoge_TRACE=1 することで発行されるクエリを見る事が出来るものがある。 # DBI DBI_TRACE=1 # DBIx::Class DBIC_TRACE=1 # DBIx::Skinny SKINNY_TRACE=1Data::ObjectDriverにも欲しい。ので書いた。 use Data::ObjectDriver::Driver::DBI;…