DBIx::Class::Componentisedを流し読みしてみた。すごい楽しい。 load_componentsメソッドに渡したパラメータを自動で DBIx::Class::hogehoge みたいにして、useしてくれる。 なんかプラグインも簡単につくれ、且つ、使えそう。さすがCatalystチーム。たった…

はてなブックマークの クリックしてコメントを追加がうざい。 マウス動かすたびに現れて、目がちらちらしてつかれる。

ﾃﾗﾔﾊﾞｽｗ #! /usr/local/bin/perl use strict; use warnings; use File::Find::Rule; use Data::Dumper; my @files = File::Find::Rule->file() ->name( '*.pm' ) ->in( '/usr/target/path/' ); print Dumper(\@files);こんな感じで、簡単にファイル検索でき…

今月一杯でなんとか落ち着きそう。 １２月はそれなりに忙しいかもしれんけども、 なんとか日常にもどれそげ。まずやること、メモ書きなので意味不明おおしｗ１．DBIｘ：：Classで遊ぶ ２．FormValidator::Simpleで遊ぶ ３．File::Find::Ruleがおもしろそげな…

会社にいる。 終電では帰れるはず。。。

ねむいぞこのやろー。(ρｗ-).｡o○

http://seminar.livedoor.com/tech/より。いけません。行こうと思ってたのに。。。締め切られました。。

に、なりますか？＞各位

FormValidator::Simpleより。katoさん！！Good Job！！！ YAMLファイルでエラーメッセージを外だしできるのが激しく便利です。レーティングもいっきにマックスになってるしｗ俺もこういうのを作らないとね＾＾；参考） http://blog.nomadscafe.jp/archives/0…

今使ってるMeadowをさらしてみる。みんなのを見たい！！

File::Findだと、 #! /usr/local/bin/perl use strict; use warnings; use File::Find; use Data::Dumper; our @file_name; find(\&file_list,'/usr/target/path/'); print Dumper(\@file_name); sub file_list { push(@file_name,$File::Find::name); }こん…

今作ってるコマンドラインアプリで 先輩が作ったValidator::SimpleでValidationをかましてます。かなり便利です。病み付きですｗ 使い方はkatoさんのFormValidator-Simpleに似てます。 FormValidator-Simpleから一部パクったそうです。Validation系のモジュ…

自分で print "コードを入力して下さい："; while(<>){ if($_....){ } }って書くのが激しくダサい気がする。 いい塩梅でやってくれるモジュールないかな。 (追記) http://search.cpan.org/~dconway/IO-Prompt-0.99.2/lib/IO/Prompt.pmキタ！でもhttp://searc…

package Progress; use strict; use warnings; use base qw(CGI::Application Class::ErrorHandler); sub cgiapp_prerun { my $self = shift; $self->header_add(-type => 'text/html; charset=UTF-8'); } sub run { my $self = shift; $self->SUPER::run; $…

RandomNote::Neko::kakを昨日立ち上げましたが、 RandomNoteの元々の仕様がノーログインでの編集が可能だったので、 ログイン機能を付けてみました。 家に帰ったらアップしてみます。 このログイン機能ではeditモードもしくはedit_doモードの場合に ログイン…

別で使ってる無料穂スティングサーバの サービスが突然終了することになった。 MySQLの導入などを考えているサーバで、 Perlのモジュールも追加してもらったりと 本当に使いやすいサーバでした。 短い間でしたがありがとうございました。 なのでWikiをおいて…

CGI::Application::Plugin::Stashより。かぜぶろさん作。クラスのアトリビュートにどしどしデータを保存。 一時的なデータのやり取りで確かに便利です。TTとの相性もよくなるのでGoodです。

もとい、PC買いたい！！ 今、家ではノートPCなのですが、３年くらい前のものなので 新しいPCが欲しいです。パワポ＆メーラ＆ブラウザだけでもかなり重い。 ってかハードディスクの容量も２０Gしかないから、最近パツンパツンなんですわ。少し探したのですが…

Class-DBI-Plugin-DateFormat-Oracle-0.01 と Class-DBI-Plugin-TimePiece-Oracle-0.01 を昼休みになんとか形にできたのでさっきCPANにあげました。 そのうち見えるようになると思います。Class-DBI-Plugin-DateFormat-Oracleだけを使う場合、こんな感じ use…

やっとこさ帰還しました。 関係者各位ご迷惑おかけしました。 明日から仕事復帰できます。そして、せっかくShibuya Perl Mongersのリングに参加したのでLOGOを付けてみた。 そしたら、駱駝がでた。

最近エントリが乱雑になってきてる気がする。 あんまり考えずに思いついては書いてるなぁ。 これじゃいかん、と、なんとなく思う。 なので、別レンタル鯖でunknownplaceさんみたいにChangeLogメモを 書いて行って、それなりに形になったものだけMTにかこかい…

複数のPluginを同時に書いていると、 このPluginでこれを設定しておければ、こっちのPluginでは この処理が楽になるなぁ、じゃ、このPluginにこれを設定する処理を追加しよう。 ってことが発生します＾＾； こんなことやってるとモジュール結合度が高まって…

いま、Class::DBI::Plugin::TimePieceをCPANにあげました。 無くてもいいけどあれば少しは便利かなと。そのうち見えると思います。Class::DBI::Plugin::TimePiece::Oracleと Class::DBI::Plugin::DateFormat::Oracleはもうちょっと様子見してから。。 あれば…

と、言いつつ中途半端なプラグインです。まず、 Class::DBI::Plugin::DateFormat::Oracleから package Class::DBI::Plugin::DateFormat::Oracle; use strict; use warnings; use Carp; use vars '$VERSION'; $VERSION = '0.01'; sub import { my $class = sh…

http://www.hyuki.com/d/結城さんすごい。 おいらもほしい。 記念に一個書き込みました。 すべてカタカナです。 みつけたらここにコメントください！！！(追記) 爆！！

６名のスピーカーの皆様お疲れ様でした。まず、私は６名のどなたとも面識がないので、 どんな人かなぁと興味津々でした。 とくに、加藤亮さん。 なんせClass::DBIでお世話になりましたから。 お〜〜あの人か〜と思いました。 そしたら先輩が「Class::DBIでは…

SELECT VALUE FROM v$nls_parameters WHERE PARAMETER = 'NLS_DATE_FORMAT';これでOracleのNLS_DATE_FORMATがとれるっぽい。（未確認） で、http://biz.rivus.jp/datetime_format_element.htmlこのページを参考に 上記SQLで取得したフォーマットを解析ですか…

Class-DBI-Plugin-DateFormat-Oracle-0.01.tar.gzとりあえず配布形式に纏めました。 CPANに行くかは微妙。 多数のご意見頂戴したいです。MLとかに流すべきですかね。

SELECT SUBSTR(DF.FILE_NAME,1,50) ,SUBSTR(FS.TABLESPACE_NAME,1,15) ,SUM(FS.BYTES)/(1024*1024) "SP_MB" FROM DBA_FREE_SPACE FS , DBA_DATA_FILES DF WHERE FS.TABLESPACE_NAME = DF.TABLESPACE_NAME GROUP BY DF.FILE_NAME , FS.TABLESPACE_NAME;つねに…

Class::DBI::Plugin::DateFormat::Oracleです package Class::DBI::Plugin::DateFormat::Oracle; use strict; use warnings; use Carp; use vars '$VERSION'; $VERSION = '0.01'; sub import { my $class = shift; my $pkg = caller(0); unless($pkg->isa('C…