DBICでbulk insertしようと思ってハマッたわけです。insert into hoge values(1,1) (1,2)みたいなことをDBICでやりたい訳です。はまった一個目。populateのcontext。DBIx::Class::ResultSetより Pass an arrayref of hashrefs. Each hashref should be a str…

ふと本棚を見てPerlHacksをみて、「あぁTestにFailした物だけを表示するやつやってなかったなぁ」 と思ってパッっと作ってみた。最初PerlHacksのやつコピペしただけで行けるかな？と思ったけど 動かなかったのでちょこちょこ直した。 #!/usr/bin/perl use st…

DBIx::Class ＋ Catalyst::View::JSON（２） - ヒルズで働く@robarioの技ログを使ってDBICのハンドルをJSON化だやったーなんて言っていて、その後DBIx::Class::AsFdatを知ってちょっと感動したりしたんですけど、as_fdat()で戻って来た値で、selectしていな…

三週間くらい前に半ば無理矢理Macbook買いました。地元帰ったときにふとヨドバシ行ったらApple Store+学割より一万円近く安かったので親にお金借りて買っちゃいました。ポイントついてしかもメモリ同時購入キャンペーンやってたらしいんで結局Macbook黒+メモ…

これは壮絶な罠なヤカン。 930 859 sage04/11/25 11:38:02 >>927 colinux:~# chmod go+w /dev/tty colinux:~# ls -l /dev/tty crw-rw-rw- 1 root root 5, 0 Nov 25 11:34 /dev/tty colinux:~# うわあ、これでうまく行きました。 ホント、ありがとうございま…

というわけです。 #!/usr/bin/perl use Web::Scraper; use URI; my $t = scraper { process '//table[@summary="upinfo"]//tr', 'columns[]' => scraper { process '//td[2]', file_name => 'TEXT'; process '//td[3]', comment => 'TEXT'; process '//td[4]…

昨日あたりに玄箱で鯖設置して運用しだしたんですけど、ふと見るとかなり昔を指してるのに気が付きました。svn単体だったらまだいいんですけど時計を直したらtracのtimelineが見えなくなっちゃったんでレスキュー。 while (<>) { if ( /^2007/ ) { s/2007-07…

少人数だから鯖を玄箱で運用しようかと思いいろいろ試したけどscreenだけが動かない！！！GNU screenの”No more PTYs” - ksaitoの日記 bne.jpここらを参考したりしましたけど動かない！なんで！rootだと動くから権限の問題だとは思うけどもういじくりまわし…

TracWikiで書類管理したいなぁと思って先生他いろいろの承認用のハンコ押すとこがほしいなと思いちょこちょこっとuser scriptを初めて書いてみた。やっぱこういうちょこっと直すのってHackっぽくていいね！恥ずかしくてたまらないけどとりあえずさらす。晒し…

とりあえず何でも書くメソッドを実行してみる。結構後から自分で見たりするのよね。 いままでsvnをさくらでsvn+sshをやってたんですけどなぜか学内にProxyの規制が入ったらしく、「403 OK」なんてエラーを吐いてなぜか使えなくなってしまったのでどーせならa…

まぁ私まだ学生の身分なので夏休みなんてものがあったわけですが、今日で終わりなわけですヴァー。 もともと日記は書くほうじゃないですけどたんぶらとついったいいですね、手軽に書けるからBlogとか書くのがめんどくさくなってくる。モジュールの振る舞いと…

やっと一息つける時間だ。というわけで卒業研究に向けて軽くCatalystをいじってみる。APIプログラミングにしたいんでView::JSONでほげほげしてみるテスト。とりあえずViewで作りますが、TT作る要領で % script/testapp_create.pl view JSON JSON な感じでお…

Filter::RuleのDedupedってcompare_bodyってオプションあったのね！わーーー =item compare_body If set, this rule checks digest of entry, which is a MD5 hash of entry's title with body. Defaults to 0. =back デフォルト0なのね。通りで静的HTML更新…

ここまでやってそういやjoinなんてのあったよね、と思い出してなにが違うんだろうと思ってやってみる。前のエントリのコードのprefetchをjoinに置き換えて比較。 join SELECT me.id, me.genre_name, me.place_name FROM master me JOIN genre genre_name ON …

あけましておめでとうございます。ちょっと遅いかもしれませんが。 今年もバリバリPerlっていきたいです。 というわけでDBIC。 Catalystアプリで作ってたんですけどよく使い方がわからないのでDBIC単体でいじくり倒そうかと。 まずはテーブル。 CREATE TABLE…