CPAN.pmから入らない！ CPANPLUS.pmで入れようとしたら設定がまずいのか タイムアウトしたりなんだかんだで入らない！！ 萎えた。 今日はムリポ。 Plaggerはプラグインが豊富になった分、 Plagger本体のインスコでもたつきそう。 なぜに、Pluginは別でDistに…

plaggerアツイ！！plagger弄りたい！！ソース読むだけじゃやだ！！オイラも参加したい！！ミーハーだから！！でも、オイラは鯖もってない！！VMWare環境で構築しても常時運用はムリポ！！常時運用無理でも弄るだけでもやるか！！でも、時間取れなさゲ。。と…

もうすぐ２月も終わり、３月になります。 １年ってのは早いもので、もう１年のうちの２ヶ月も（ほぼ）終わりました。おそらく３月もあっと言う間に終わるでしょう。 特に私の場合は早いと思います。 ４月からモバイルファクトリーにJoinします。 Joinって書…

のようなソースと格闘中。 なんせ、DBI使わずにDBアクセスしてる。 とりあえず全部DBI使うように変更。でも、ある意味DBIを使わずにこんなのでDBアクセスもでけるんだと関心(・∀・)ほう。 でも、自分ではやろうとは思わない。

ネーミングセンスはともかく、 いちいち面倒でしょってことで。 auto_inflate_datetime以外は動かしてません。 多分うごくかな？ package DBIx::Class::AutoInflateDateTimeMySQL; use strict; use warnings; use vars qw( $VERSION ); use base 'DBIx::Clas…

今日は新年会です。やっとです。焼肉食うぞ〜〜。

昨日に引き続きDBICでもやってみた。 こっちはSQLとBindも表示。 package DBIx::Class::QueriesTime; use strict; use warnings; use vars qw( $VERSION ); $VERSION = 0.01; package DBIx::Class::Storage::DBI; use Time::HiRes qw( tv_interval gettimeof…

Class::DBI使ってるときにqueryにどれだけ時間掛かってるか見てみたかったので作ってみた。 sth_to_objectsをredefineする感じ。 package Class::DBI::Plugin::QueriesTime; use strict; use warnings; use Time::HiRes qw( tv_interval gettimeofday ); use…

でーたー。って感じです。待ち望んでましたベスト。 小田原に行く前にTSUTAYAに寄ってレンタルして、車で聞きまくり。 歌詞に爆笑。やっぱりヒロトとマーシーはいいねぇ。 中学のときを思い出したなぁ。おすすめはヤッパリ「青春」かなぁ。 でも、全部いいと…

ってほどでもないですが。土日は小田原でのんびり過ごす予定。 いつも小田原に行くとネットにつながない日々です。 でも、そういう日も大切かもと思っとります。 でわ〜。

CPANモジュールのバージョンの部分にModule-Name-v0.01とか、vを入れるのが流行なのか？！今みた、CPANRecentにはすべてvがついていた！そして、Damian Conwayがやりまくってるから見習おう！

昨日起こったこと。 サーバに超負荷かけてガリガリやってたら、急にエラーが頻発するようになった。 ログ見たら、 ORA-04031: unable to allocate 4200 bytes of shared memory ("shared pool","unknown object", "sga heap","state objects")とかエラーでま…

C-x RET c euc-jp-unix C-x C-fで文字コード指定してファイル開くのうざい。 デフォルトでeuc+LFにならんもんかのぉ。 と思い、色々やってたのですが (setq default-buffer-file-coding-system 'euc-jp-unix)だとどうも動かない、ってか設定が有効にならない…

昨晩、会社の同僚Aから電話がありました。 まあ、普通に雑談してて、途中で以下のような話題になりました。A 「ところで、まだ、ぱぁるぅやってんの。」このAは前からLLを馬鹿にするところがあったので、私「やってるよ。Perlを馬鹿にしてるっしょ。」 A 「…

かぜぶろさんにText::CSV::Simpleがあるよとおしえてもらた。 節操無くパクッタ。 package Text::CSV::Simple_PP; use strict; use warnings; use base 'Text::CSV::Simple'; use Text::CSV_PP; sub new { my $class = shift; return bless { _parser => Tex…

あんまり考えずに作った。 package Text::CSV_PP::Simple; use strict; use warnings; use base qw/Text::CSV_PP Class::Data::Inheritable/; use IO::File; use Scalar::Util qw/blessed/; __PACKAGE__->mk_classdata('io'); sub getline { my ($self,$io) …

18:20秋葉原発の電車で行こうと思いますので、 宜しくお願い致します。

nekokakってidの読み方ですが、（思い出したので書いてみるが、実際どうでもよい） みなさんどのようにお読みですか？MFの方々はネコカクとお読みですた。 皆様はどうでしょうか？まあ、どうでもよいのですが、自分的にはネコケーエーケーでした。ちなみにわ…

/etc/syslog.conf に設定。 user.error ifdef(`LOGHOST', /var/log/syslog, @loghost)syslogの再起動 # ./syslog stop # ./syslog startなぜにrestartがない-_-;で、マウントしている領域の容量チェックのシェル #! /bin/sh -x warning_stage="80" for mount…

超てきとー package Class::DBI::Plugin::FastDelete; use strict; use warnings; use base 'Class::DBI::Plugin'; use vars qw($VERSION); $VERSION = 0.02; use SQL::Abstract; sub import { my $pkg = caller(0); $pkg->mk_classdata('_fast_delete'); go…

一応書いておいた方がよいかなと思い立ったのでちょっとだけ書きまする。楽しい時間が共有できました。勉強会も楽しかったし、飲み会も面白かったです。 そしてご馳走様でした。細かいことは抜きにして、大雑把な感想。１．勉強会を開催できている環境が い…

いきますです。 よろしくです。

my $io = new IO::File $csv_file, "r" or die "Error : $csv_file file not found. $!";my $csv = Text::CSV_PP->new({binary => 1});while ( my $columns = $csv->getline($io) ) {}いちいちIO::Fileとかめんどいッス。 Text::CSVとかText::CSV_XSにあわせ…

カゼ引いたかも。 でも、気合だ！！

ですヨ。 今まで停滞していたので、少しでも早く前進したいのでつ。しかし急遽開催になってしまって申し訳ないです。 では、１９時ちょっと前にお伺い致します。その後の飲み会ですが、OKです。 ですが、わたしあんまり飲めません。お手柔らかにお願いします…

約２名（もしかしたら３名）体調不良により新年会順延決定。。予定は未定。忘年会が順延して１月に新年会やろうとして順延してまた順延ですか。これはやるなとのネ申のお告げかと。

本日、勉強会に遊びに行ってもよかですか？id:tokufumiさん。 （会社メールがつかえないのでここに書いてみる）18時〜19時開始ならなんとか間に合うかと。 今日が無理なら別の日で結構です。 御社のお話もお聞きしたいので。日程調整の方はその後ということ…

今日は新年会ｗ

id:tokufumiさんからトラックバックを頂いたわけですが、 id:tokufumiさんて誰かよくわかっていなかったりするわけですが、 id:tokuhiromさんでもなくのみまくしさんでもなかったりするわけですが、 なんかお二方がくっついた感じもしたりしなかったりするわ…

リリースされましたが、プライマリーレスなテーブルに関してhttp://nekokak.jf.land.to/wiki/wiki.cgi/sub?page=Perl%2FDBIC#p33ってな具合みたいです。