The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME Class::DBI::Plugin::PseudoColumns - an interface to use some pseudo columns SYNOPSIS package Music::CD; use base 'Music::DBI'; Music::CD->table('cd'); Music::CD->columns(All => qw/cdid artist title year reldate properties/); use Class::DBI::Plugin::PseudoColumns; Music::CD->pseudo_columns(properties => qw/asin tag/); use Music::CD; my $cds = Music::CD->search(artist => 'Steve Vai'); while (my

perlで複数行をコメントアウトしたい時は、 いちいちイゲタならべて可愛くするのも面倒なので ↓なんかこんな感じにしちゃうわけだけど、 my $i = 666; =pod print "ぼくのホームページへようこそ＞＜<br />\n"; print "あなたは $i 番目の勇者様でス…！"; =cut print "閉鎖しますた。"; これだと秀丸エディタの場合、コメント色に染まってくれないから ぱっと見てわかんないよね！ 強調表示の機能を使って色つけられるかなとか思ったけど、 なんだか複数行の正規表現に制限があるとかで、うまくできないし。 あ！ ぼくパンピーだし厨房だから他のエディタはしらないんだけどね！ まあそんな感じで、べつに死んぢゃうわけじゃないしいいやとか思ってたんだけど 最新の秀丸つかってみたらびっくりですよ！ ヒアドキュメントを認識して色分けしてくれるようになってますよ！

XML::Atom::Feedの使い方を間違えていた ある所でXML::Atom::Feedを使ってatomfeedの取得からパースまでやらせていたんだけど。 なぜだか、同じリクエストが2回同時に来ているという指摘を受けていて原因が分からず悩んでました。 XML::Atom::Feed->new(URI->('http://example.jp/atomfeed'));としてたんですよ。 そうですよ、##Use auto-discovery to load the first Atom feed on a given page.だったんですよ。 めでたく XML::Atom::Feed->new('http://example.jp/atomfeed');に直しました。 しかし上だとLWP::UserAgentを使って取得して、下のだとXML::LibXML使うんですね。 ごめんなさいor

order by rand() id:naoyaさんが書いている インデックスをかけてるテーブルでも、結局ランダムなので全件捜査してから値を返す。プライマリーキーに対して rand() する場合でも O(1) ではないのですよね。なんか回避する方法があったりするのかな order by rand()は最近知った方です。 通常ランダムで返す必要がある場合データベースではなくプログラム側で、2度SQLを発行してます。 my ($count) = $dbh->selectrow_array('select count(*) from table'); my $offset = int rand $count; my $ret = $dbh->selectrow_hashref('select * from table limit ?,1',{},$offset); これで対応してました。 やって