Perl
と ミルキィホームズ
が好きですAcme::MilkyHolmes
という素敵なモジュールの開発をしていますReply でバックグラウンドのジョブを走らせる君
が欲しいので誰か書いてくださいtsucchi@surreal[620]$ reply
reply@surreal.local[0]>
reply@surreal.local[1]> 1 + 1
$res[0] = '2'
reply@surreal.local[2]> $a = 123
$res[1] = '123'
reply@surreal.local[3]> $b = 456
$res[2] = '456'
reply@surreal.local[4]> $a + $b
$res[3] = '579'
reply@surreal.local[5]> rand()
$res[4] = '0.0647113826862586'
reply@surreal.local[6]> exit
% reply-service1
1> Select('detective', { id => 1 });
$res[1] = {
id => 1,
name => 'シャーロック・シェリンフォード',
age => 15,
toys => 'サイコキネシス',
birthday => '3/31',
}
my ($create_table_ddl) = $self->search_by_sql("SHOW CREATE TABLE $table_name");
my $inspector = DBIx::Inspector->new(dbh => $self->dbh);
my $table = $inspector->table($table_name);
my $create_tabl_ddl = $table->{SQLITE_SQL};
pg_dump
叩けとかそんなんばかり\d テーブル名
とか書いてあるけど、それテーブル定義じゃねーだろ!sql = wxT("-- Database: ") + GetQuotedFullIdentifier() + wxT("\n\n")
+ wxT("-- DROP DATABASE ") + GetQuotedIdentifier() + wxT(";")
+ wxT("\n\nCREATE DATABASE ") + GetQuotedIdentifier()
+ wxT("\n WITH OWNER = ") + qtIdent(GetOwner())
+ wxT("\n ENCODING = ") + qtDbString(GetEncoding());
pg_dump
を叩いて結果を成形する、というめっちゃ雑な実装pg_dump
で出したやつと比較して一致するか冒険☆ミルキィロード!! まだ買ってない方は是非買ってください
Use a spacebar or arrow keys to navigate