今日 DBIC を使ってて若干ハマったのでメモです。 sub list { shift->schema->resultset('User')->search({}, { 'order_by' => 'user_id' }); } sub as_fdat { map +{ $_->get_columns }, $_[1]->all; } sub list_as_fdat { my $self = shift; [ $self->as_f…

先のエントリで HTML::TreeBuilder::LibXML を紹介しましたが、HTML::TreeBuilder::XPath と、LibXML は下記のように微妙に挙動が違うので、Web::Scraper 付属の scraper コマンドも LibXML を使うように変更しました。 HTML::TreeBuilder::LibXML を使うと…

昨日、HTML::TreeBuilder::LibXML がリリースされました。 Web::Scraper を 16 倍速くする HTML::TreeBuilder::LibXML を書いたhttp://search.cpan.org/~tokuhirom/HTML-TreeBuilder-LibXML-0.01_02/（デベロッパーリリース） http://search.cpan.org/~tokuh…

$HOME/.vimrc に以下を書いておけば、 autocmd FileType perl :map <up> <esc>:!/usr/bin/perl %<cr> autocmd FileType perl :map <down> <esc>:!/usr/bin/perl -wc %<cr> カーソルキーの↑で、開いているウィンドウのソースを実行します。 カーソルキーの↓で、開いているウィンドウのソー</cr></esc></down></cr></esc></up>…

なぜか、perldoc DBIx::Class::ResultSet に get_column() は載ってるのに、get_columns() が載っていなかったのでメモです。 $col1 = $rs->get_column('column1'); とかじゃなくて、 { 'column1' => 'value1', 'column2' => 'value2', 'column3' => 'value3…