2009-01-01から1ヶ月間の記事一覧
たとえば、全ファイルからサブルーチン名を抜き出したいと思ったとき。 % grep sub * | perl -nle '/sub\s+(\w+)/ and print $1;' こういうことばっかりやってると、perlが無い環境にいったときに苦労する。 そんな環境滅んでしまえって気もするが。 % grep …
まあ、やらんといかんわなあ。仕事だし。
前からやろうやろうと思って逃げてたmemcachedをやってみるテスト 下準備 # yum --enablerepo=rpmforge install memcached # yum install libevent-devel cpan[1]> install Cache::Memcached cpan[2]> install DBIx::Class::Cursor::Cached 起動 # /etc/rc.d…
相も変わらずレベル低い。これからだこれから とりあえず最低限の使い方。SYNOPSIS真似ただけ。 myapp.yaml session: memcached_new_args: data: - '127.0.0.1:11211' MyApp.pm use Catalyst qw/ -Debug Session Session::Store::Memcached Session::State::…
言語にクラスが無かったから、パッケージをクラスとして見立てた？の？
奥歯にティッシュが挟まったような感じのする命令、いや指令？えー、指示でいいや。 そんな指示が出た。嫌でもないけど喜ばしくもない、自分でもどう思ってるのかよーわからん。 まあ会社に属してる以上、従うしかないのだけど。
超今更なんですけどね。 入力値がDB内でユニークかどうかチェックするよーってなあれ。色んなケースがあるけど、例えば今DBに入ってる自分のメアドをユニークにするとしよう。 自分の名前だけ更新したとき、メアドはそのまま。が、DB内に既に自分のメアドは…
毎度忘れてperldoc打ってる成長しない俺ガイル 以前コントローラでエラーった項目書いたので、その先のエラーったチェック項目（BLANKだのLENGTHだの）をビューでttで見よう。 [%- IF c.form.has_error -%] [%- FOREACH key IN c.form.error %] <p>[% key %] に</p>…
実は軽く体調が悪い。 最近本を読むペースが落ちた？
リア充 普段の生活の中で友達とかと話してて勝手に抜けてく（多分） 一般人 飲み会とか、友達とかとどっかで飲み食いしながら抜けてく（多分） other …溜まりっ放しかなあ…
catalyst sub login :Local { my ($self, $c) = @_; if ($c->req->method eq 'POST') { warn "post !" } else { warn "get !" } } rails def login if request.post? p "post !" else p "get !" end end いや、postじゃないなら必ずgetってわけじゃないけど…
複数の認証条件が使えるようになってた。 認証方法1：mail_addressとpassword 認証方法2：serialとpassword みたいな。 例えばUserテーブルに持ってる情報で認証するサンプル。 設定 authentication: default_realm: use_mail realms: use_mail: credential:…
before header.ttに <html> 〜〜〜〜〜〜〜〜 </html>
わかりづれえ。UserがBooksをhas_manyで、BookがUserにbelongs_toなとき、つまりUser has_many Bookで、Book belongs_to Userなとき、bookからselectかけたらただのjoin、つまりinner joinになる。 そりゃ当然だ。親が確実にいるからこそ子供は居る。 で、us…
DBICでUser->find_by_id(1)とかやってみたのブランチだか改良みたいな。 after # 検索結果は1件 my $user_a = User->find(3); # select 〜 where user.id = 3 my $user_b = User->find_by('age', 3); # select 〜 where user.age = 3 # 検索結果はn件 my $bo…
中の人はCentOS5.2 # vi /etc/X11/xorg.conf Section "InputDevice" Identifier "Configured Mouse" Driver "mouse" Option "CorePointer" Option "Device" "/dev/input/mice" Option "Protocol" "ImPS/2" Option "Emulate3Buttons" "true" Option "ZAxisMap…
Q.ソフトリファレンスで変数を参照してもundefって言われます A.ソフトリファレンスとか使うのが間違ってますソフトリファレンスが読み書き出来るのはグローバル変数だけです use strict; use warnings; use Data::Dumper; local $\ = "\n"; sub p ($) { pri…
タイトルだけで全てを言い尽くした感。 既にコミットされてるファイルをignoreしようと何度頑張っても失敗。 柔道家に質問。 「既にsvn管理下にあるからでしょ」 毎度バカやっております。すんません。
Graphvizをインストール。graphvizとgraphviz-gdとgraphviz-develがあればいい。 graphviz-rubyを入れたら、自分の環境ではrakeとかgemがぶっ壊れた。rubygem rubyもろとも再インストールするハメになった。（ruby-1.8.7-1、gem1.3.1）Graphvizはリポジトリ…
追記 改良版書きました DBICでUser->find_by('age', 1)とかUser->find_all_by('user_id', 1)とかやってみた catalystアプリの中で、DBICを使ってDBに問い合わせする部分をActiveRecordっぽくしてみた。 before my $user = $c->model('DBIC::Users')->search(…
Parsing of undecoded UTF-8 will give garbage when decoding entities atとか出るのは、ググったらHTML::Parserのバグらしい。 不要なので止める。 HTML::FillInFormを編集。174行目くらい。 % vi HTML::FillInForm if(my $file = $option{file}){ $self->…
perldoc -f use perldoc subs
floatがかかってる要素が高さが無視される 外枠にclearfix
正規表現で処理してたら気がついた。何故かCatalystアプリの中では、何もせずともマッチ変数の$1と$2に値が入っている。 必要な部分だけ抜粋 use Data::Dumper; sub p {warn Dumper shift} sub auto :Private { my ( $self, $c ) = @_; p $1; p $&; p $`; p …
「ほとんどの人が勘違いしてんのさ。どんくらい英語できるようになりたいですかー？っつーと、 『そうですね、字幕無しで映画を見れるくらいですかね』 とか言うけどさ、それ超レベル高いから。聞き取りが一番難しいのさ。 ヒアリングさえ出来ればコミュニケ…
たまにこんなものを見かける。 package # hide from PAUSE DBIx::Class::CDBICompat::ColumnGroups; なんじゃこらと思ったら、こう書いたらCPANにクロールされなくなる、だそうな。
正直はよ引っ越したくてしょーがない
childとかfishとかどーしてんのかなと、ふとソースを見てみた % vi /usr/lib/ruby/gems/1.8/gems/activesupport-2.2.2/lib/active_support/inflections.rb・・・うん、仕方ないよね。 perlではLingua::EN::Inflectが似たような事をやっている。 この辺、言語…
友人Aと、その友人Bとで飯を食いに。Bは先月帰国したばっか。 集合する1時間半程前、Aからメールが。 「ちなみに今日はBの誕生日だからサプライズするならチャンスね」 言うのが一週間おせえよ！とりあえずドンキで孫悟空パジャマ購入。 富士山繋がり。完全…
show create table users\G
