Julz :: DBI :: Schemagerator Jikants :: dbi :: Schemagerator é um módulo Perl para gerar esquemas de tabela dos registros Jikant :: DBI.
Baixe Agora

Julz :: DBI :: Schemagerator Classificação e resumo

Julz :: DBI :: Schemagerator Tag

tabela Módulo Perl. gerar Gere esquemas de tabela

Julz :: DBI :: Schemagerator Descrição

Jifty :: DBI :: SchemaGenerator é um módulo Perl para gerar esquemas de tabela de registros Jifty :: DBI. Jifty :: DBI :: SchemaGenerator é um módulo Perl para gerar esquemas de tabela de módulo Jifty :: DBI records.This transforma um objeto Jifty :: gravar em um esquema SQL para seu banco de dados escolhido. No momento, suas escolhas são MySQL, SQLite, ou PostgreSQL. A Oracle também pode funcionar bem, embora de untested.SYNOPSISThe Curto AnswerSee abaixo para onde nós começamos a $ handle e US $ variáveis do modelo. uso Jifty :: DBI :: SchemaGenerator; ... my $ s_gen = Jifty :: DBI :: SchemaGenerator-> new ($ handle); $ S_gen-> add_model ($ model); minha @statements = $ s_gen-> create_table_sql_statements; imprimir join ( "n", @statements, ''); ... The Long VersionSee Jifty :: DBI para obter detalhes sobre o primeiro pacote MyModel dois parts.MyModel; # Utilize lib / MyModel.pm advertências; Use rigoroso; usar qw base (Jifty :: DBI :: Record); # Seu código personalizado vai aqui. 1; MyModel :: Schema pacote MyModel :: Schema; # lib / MyModel / uso Schema.pm advertências; Use rigoroso; uso Jifty :: DBI :: Schema; foo coluna => tipo é 'texto'; bar coluna => tipo é 'texto'; 1;! Myscript.pl # / usr / bin / env perl # myscript.pl use strict; use avisos; uso Jifty :: DBI :: SchemaGenerator; usar Jifty :: DBI :: Handle; usar MyModel; usar MyModel :: Schema; meu $ handle = Jifty :: DBI :: HANDLE-> new (); $ HANDLE-> connect (driver => 'SQLite', banco de dados => 'testdb',); my $ model = MyModel-> new ($ handle); my $ s_gen = Jifty :: DBI :: SchemaGenerator-> new ($ handle); $ S_gen-> add_model ($ model); # Aqui está o ponto básico deste módulo: meus @statements = $ s_gen-> create_table_sql_statements; imprimir join ( "n", @statements, ''); # Esta parte é diretamente do Jifty :: Script :: Schema :: create_all_tables () $ HANDLE-> begin_transaction; para minha US $ declaração (@statements) {my $ ret = $ HANDLE-> simple_query ($ statement); $ Ret ou morrer "erro ao criar uma tabela:". $ RET> mensagem_de_erro; } $ HANDLE-> commit; Requisitos: · Perl.

Julz :: DBI :: Schemagerator Software Relacionado