[B! bad know how][perl] yuguiのブックマーク

yugui id:yugui

bad know howとperlに関するyuguiのブックマーク (3)

配列から効率良くプレースホルダを作る : にぽたん研究所
my @a = qw(foo bar baz); こんな配列から ?,?,? という文字列を使いたい場合があります。例えば、 SELECT * FROM hoge WHERE user_id IN (?,?,?); みたいな SQL にする場合のプレースホルダを作ると言った具合に。社内 IRC で、clouder さんが言い出して、 18:27 <clouder>join(',', map('?', @a)) 18:27 <clouder> こんなのしか思いつかない。。と言う。まぁ、それが妥当というか、普通それが思い浮かぶよなーって思ってたら、会社の dos さんという人が 19:15 <dos> '?,' x @a; で s/,$//; というｿﾘｭｰｼｮﾝとか、異様なことを言い出した。 sub placeholder_from_array { return join(',',
yugui 2006/08/11
perl

bad know how
リンク
iandeth. - lvalue がデバッグモードで正しく動作しない
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. sample.pl use strict; package FooClass; sub new { return bless({ prop => 'orginal' },shift); } sub prop : lvalue { shift->{prop}; } package main; my $obj = FooClass->new(); print "$obj->{prop}\n"; $obj->prop = 'modified'; print "$obj->{prop}\n"; 実行結果 $ perl sample.pl orginal modified インスタンスプロパティを左辺値として使えるようになるのでちょっといい
yugui 2006/04/26
　（･∀･）つ〃∩ﾍｪｰﾍｪｰﾍｪｰ

perl

bad know how
リンク
Class::DBI::Sweetを継承する順番
Class::DBI::Sweetと、他のClass::DBIを継承するモジュール(Class::DBI::mysql)とかを一緒に使う(use baseする)場合は、Class::DBI::Sweetを最初に継承しないといけないっぽい、でした。 #!/usr/bin/perl package DB; use strict; use base qw(Class::DBI::mysql Class::DBI::Sweet); __PACKAGE__->connection("dbi:mysql:test", "test", "", { RaiseError => 1 }); package DB::It em; use strict; use base qw(DB); __PACKAGE__->set_up_table('it em'); package main; use strict; us
yugui 2006/03/12
perl

bad know how
リンク
1