SQL::Abstract を使い倒す - JPerl Advent Calendar 2009
SQL::Abstract を使い倒す - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 今更、携帯小説にハマってる id:ZIGOROu です。モバゲーのオンライン3って小説が面白いですよ！ 今日は SQL::Abstract を使い倒すと言うネタで行きます。 まず超基本編 簡単な SQL 文の生成から始めましょう。 use strict; use warnings; use Data::Dump qw(dump); use SQL::Abstract; my $s = SQL::Abstract->new; my ($stmt, @bind) = $s->select( "activity", # tables [qw/id title sender created_on/], # columns
SQL::Abstract::Plugin::InsertMulti - 日向夏特殊応援部隊
作ってみました。元ネタは MySQLにおけるbulk insert と bulk update - 金利0無利息キャッシング – キャッシングできます - subtech です。bulk insert, bulk update *1 が出来ます。 SQL-Abstract-Plugin-InsertMulti-0.05 - add mysql bulk insert supports for SQL::Abstract - metacpan.org GitHub - zigorou/p5-sql-abstract-plugin-insertmulti: bulk insert and update support for SQL::Abstract 使い方は非常に簡単で、t/01_basic.t とか見て頂けるとすぐ分かるかと思いますがこんな感じです。 use strict; use wa
SQLiteのTIMESTAMP型のフィールド値用にPerlのDateTime、DateTime::Format::MySQLモジュールで現在時刻文字列を生成
SQLiteのTIMESTAMP型のフィールド値用にPerlのDateTime、DateTime::Format::MySQLモジュールで現在時刻文字列を生成 スポンサードリンク Tweet SQLite使っていてUPDATEした瞬間の時刻を記録するときに、自前で日付文字列生成しなくてはならないので、どうするんだっけかとど忘れしてしまったので、ここに書いておこう。ここに書いておくと、Googleで検索できるので便利なんですよね。 use DateTime; use DateTime::Format::MySQL; my $dt = DateTime->now(); my $date = DateTime::Format::MySQL->format_datetime($dt); print "$date\n"; exit; __END__ 実行例（2008-08-24 23:24に実行）：
I, newbie » DBIx::Class::SchemaでSQLを生成できるらしい
DBIx::Class::Schema::Loaderで既存のデータベースからDBIx::Class::Schemaを作成できるなら、DBIx::Class::SchemaからスキーマのSQLを生成することだって可能なんじゃないかと思って、DBIx::Class::Schemaのマニュアルを眺めていたら、create_ddl_dirなんつーメソッドがあった。EXPERIMENTALだけど。実行にはSQL::Translatorが必要。しかもDBIx::Class::Schema::Versionedなんつーものもあるんですか。RoRっぽくスキーマをアップグレードできるらしい。とりあえずMySQLとPostgreSQLのSQLが欲しかったので、create_ddl_dirでdumpしてみた。 #!/usr/bin/perl use strict; use warnings; use lib
Fey使ってみた - D-6 [相変わらず根無し]
Fey使ってみた Dave RolskyのSQL生成モジュール、Feyを使ってみた。コードはこんな感じ。 use strict; use DBI; use Fey::Placeholder; use Fey::SQL; use Fey::Schema; use Fey::Table; my $dbh = DBI->connect('dbi:mysql:dbname=mq', 'root', undef); my $schema = Fey::Schema->new(name => 'Q4M'); my $table = Fey::Table->new(name => 'mq'); $table->add_column( Fey::Column->new( name => $_, type => 'text' ) ) for qw(a b c); $schema->add_table($
Use PPI to Find SQL Injection Attacks
This is a quick and dirty PPI hack I threw together, but it attempts to spider through your codebase and look for SQL injection attacks. It returns some false positives, but that's better than false negatives. It could use some work, particularly since identifying something as SQL is difficult. #!/usr/local/bin/perl use strict; use warnings; use File::Find::Rule; use PPI; my $extensions = join '|'
search_literal - Hatena::Diary::Neko::kak 500 Internal Server Error
MySQLの関数を検索条件にぶち込んでほげほげしたい場合 $rs->search({'me.created_on' => {'>'=> \"NOW() - INTERVAL $span DAY"}); とか書くと、$spanがSQLインジェクションになりかねないの。 そういう場合はsearch_literal使うよろし。 $rs->search_literal('me.created_on >= NOW() - INTERVAL ? DAY', $span); こんなSQLで安全無敵 Executing : SELECT me.id, me.rid, me.name, me.created_on, me.timestamp FROM member me WHERE ( me.created_on >= NOW() - INTERVAL ? DAY ) : '1' まあINTERVAL使わな
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
Client Challenge
Client Challenge
2006/05/19 - memo - unknownplace.org