unknownplace.org - 2007/12/21 - こうしたいflymake
Emacs で JavaScript のシンタックスエラーを検出する これ読んですぐ導入したflymake。上記サイトのを少し改造したらperlでもできたのでいまはjsとperlでリアルタイムでシンタックスエラーチェックができている。 僕はすごくtypoがおおいと思うのだけどこれを導入してからtypoではまることがずいぶん減った。もうないとこまるelispのひとつになってる。 ちなみにperl版はこんな感じにしている。 (require 'flymake) ;; flymake for perl (defvar flymake-perl-err-line-patterns '(("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1))) (defconst flymake-allowed-perl-file-name-m
DBIx::Class::Cursor::CachedつかってみたCommentsAdd Star - unknownplace.org - 2007/12/20
舌足らずすぎた。 Model::DBIC: connect_info: - dbi:mysql:table - root - on_connect_do: - SET NAMES utf8 cursor_class: DBIx::Class::Cursor::Cached cache_file: __path_to(tmp/query_cache)__ さっきはこんなconfigで使った場合のコードです。 すばらしすぎる。もっと早く使えばよかったとおもった。 Catalyst::Model::DBIC::Schema で使う場合はこんな感じでOK。 sub new { my $self = shift->NEXT::new(@_); my $cache = Cache::FastMmap->new( share_file => $self->{cache_file} ); $self->s
unknownplace.org - HTML::TreeBuilder::XPath + WWW::Mechanize なスクリプトを永続化させようとしてはまった
WWW::Mechanize でコンテンツとってきて TreeBuilder::XPath で解析するようなのを今まで単機能スクリプトなどでは便利に使っていたのだけど、それを永続的なプロセスで使おうとしたらメモリ使いまくってとんでもないことになったという話。 まずどんどんメモリが増えていくのでタイミングよく読んでいたjrockwayの記事などを参考に、 perl -MDevel::Leak::Object=GLOBAL_bless 付きでスクリプトを実行してみる。 少しソースをいじってまずはループを一回で止めるようにしたときの出力 Tracked objects by class: Config 1 DBI 1 DBI::var 5 DBIx::Class::ResultSource::Table 1 DateTime::Duration 2 DateTime::Format::Build
2007/06/15 - memo - unknownplace.org
300clp - Firefoxを遅くさせる最大原因はアドオン これみて開発時しかつかわない拡張いろいろ無効にしてみたところすげー速くなった。うは。 でも開発時は使いたいから、プリセット設定してON/OFF変えて再起動とかしてくれる拡張がほしい！！ 開発用にあたらしくFirefoxのプロフィール作ってわけてもいいけど、普段使ってなじんでいるFirefox設定で開発しないと効率悪いしUIチェックとか何とか微妙になる気がするし。 あと、上記URLの最後にIPv6を無効にするの意味ないって書いてあるけどおなじURLを表示するテストとかDNS最初しかひかないでしょ。それじゃわからないくない？ Catalystは Authentication::Credential::* プラグインを複数使うことにより、複数の認証方式に対応できる。 IP認証などのような、Credプラグインが提供されていないものも即
2006/06/13 - memo - unknownplace.org
use Catalyst qw/ FormValidator::Simple FormValidator::Simple::Auto /; __PACKAGE__->config( validator => { messages => 'messages.yml', profiles => 'profiles.yml', # and other FormValidator::Simple config }, ); # profiles.yml action1: param1: - NOT_BLANK - ASCII - [ 'LENGTH', 4, 10 ] param2: - NOT_BLANK # then your action sub action1 : Global { my ($self, $c) = @_; # $c->form($profile) already execu
2007/05/07 - memo - unknownplace.org
書き忘れたけどさっきの update_schema.pl は ./script/myapp_update_schema.pl dbi:mysql:tablename username password 見たいな感じで DSN を渡す必要がある。めんどう。 ここら辺があれでまだヘルパーにはなってない。 mizzy.org : Re: DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い 僕の中で流行ってる使い方があるのでかぶせて書いておいてみる。mizzy さんの二個目の例を自分ルール化させた感じ？ 作業は一般的なCatalystアプリのディレクトリ構造上であるとして、そこに新しく schema というディレクトリを作成。 そんで、 schema/lib/Schema/{TableName}.pm に各テーブルのリレーション定義とかメソッドとかを自分で書く。
2007/04/14 - memo - unknownplace.org
Log::Dispatch は大好きなモジュールのひとつなんだけど、これだけだとイマイチ微妙。 Log::Dispatch::Config を使うことですげーー便利になる。必須。 miyagawa さんは 5 年以上も前にこれ作ったんだなぁ。 同僚から聞かれたので、僕のやり方を書いておく。 すでにCPANに Catalyst::Plugin::Log::Dispatch というのがあるのだけど、なんかいけてないのでそれは使わず、以下のようにしている。 まず MyApp::Logger とかいうのをかく package MyApp::Logger; use strict; use warnings; use Log::Dispatch::Config; use Log::Dispatch::Configurator::YAML; use Catalyst::Utils; use NEXT;
2007/04/09 - memo - unknownplace.org
今作ってるサービス。 use Catalyst qw/ ... Authentication Authentication::Credential::Password Authentication::Credential::OpenID Authentication::Credential::TypeKey Authentication::Credential::Hatena Authentication::Credential::JugemKey +MyApp::UserStore ... /; MyApp::UserStore は A::Store::DBIC のちょっとしたサブクラスで、Cred::Password のときは auto_create_user しないようにしただけのもの。 最近の Store::DBIC の auto_create_user 機能つかうと外部認証使うサ
Remember The Milk で IME を自動で ON/OFF する greasemonkey スクリプト
Remember The Milk はサービス開始当初少し触っただけでまったく使っていなかったのだけど、最近周りの人が結構使っているのでちょっと見てみたらすごい進化していて、これは便利そうってことで使ってみている。 それで、キーボードショートカットだけでいろいろな操作ができるようになっていてすごく便利になっているのだけど、IMEがONの状態だと動かない。 タスクは日本語で入力することが多いので、いちいちIMEの状態を気にしなくてはいけなくて面倒。 ってことで、テキストフィールドにフォーカスがあるときは自動でIMEをONにし、フォーカスが外れるとOFFにするスクリプトを書いてみた。 rememberthemilkime.user.js スクリプトと同じ階層にある IME.swf というのも読み込むようになっていて、IMEのON/OFFはそれでやってる。無駄にAS3で書いたため、Flash P
2007/02/12 - memo - unknownplace.org
emacs + snippet.el の定型文補完（スニペット）で楽々HTML編集：Goodpic を見て便利そうなので導入。 elisp よくわかんねーので、psgml-mode と cperl-mode で動かしたかっただけなのにものすごい時間かかった。。 ; snippet.el (require 'snippet) (require 'psgml) (snippet-with-abbrev-table 'xml-mode-abbrev-table ("ahref" . "<a href=\"$${url}\" title=\"$${title}\">$${title}</a>")) (defvar cperl-mode-abbrev-table nil "Abbrev table in use in CPerl mode.") (define-abbrev-table 'cperl
CLON - 2006/12/09 - JSコンソールにログをはくActionScript
いままではLocalConnection使うロガーをつかってたんだけど、JSと同じところで見れたほうが楽かなと思って作ってみた。 import flash.external.ExternalInterface; class Logger { public static function trace(msg) { return ExternalInterface.call("window.console.log", msg) || ExternalInterface.call("opera.postError", msg) || ExternalInterface.call("printfire", msg) || ExternalInterface.call("Debug.writeln", msg) || ExternalInterface.call("debug.trace", msg
CLON - 2006/11/27 - 複数のアプリで共通のテンプレートファイルを使う
アカウントとってみた。 shibuya.pmで話していたFirefoxの拡張便利。 firefox.exe -chrome chrome://s3fox/content/s3foxWindow.xul とかで単独起動できる。 にはどうしたらいいのかなーとおもってTemplateのdocを眺めていたら my $tt = Template->new({ LOAD_TEMPLATES => [ Template::Provider->new( INCLUDE_PATH => '/path/to/myapp/templates' ), Template::Provider->new( INCLUDE_PATH => '/path/to/common/templates' ), ], PREFIX_MAP => { default => 0, common => 1, }, }); こんな感じでやれ
Lighttpd-Catalyst Technique
最小設定 lighttpd.conf server.document-root = "/path/to/root" server.port = 80
CLON - 2006/09/15 - plaggerライクなHTTP::Proxyフロントエンドスクリプト
を書いた。会社のrepos内にアップしてしまったのでここに貼り付けちゃう。 #!/usr/bin/env perl use strict; use warnings; use File::Spec; use File::Find::Rule; use FindBin; use Getopt::Long; use Pod::Usage; use HTTP::Proxy; use YAML; # load config my $config = do { my $config_file = File::Spec->catfile( $FindBin::Bin, 'config.yml' ); my $port = 0; my $host = ''; my $help = 0; GetOptions( 'port|p=s' => \$port, 'host|h=s' => \$host, 'co
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
2008/02/29 - memo - unknownplace.org
CLON - 2006/11/21 - DBIx::Class vs mysql vs UTF-8