Ovo :: Mod :: EasyDBI Egg :: Mod :: EasyDBI é um módulo DBI facilmente disponibilizado.
Baixe Agora

Ovo :: Mod :: EasyDBI Classificação e resumo

Ovo :: Mod :: EasyDBI Tag

Módulo Perl. classe Ovo DBI Módulo DBI. classe de ovo

Ovo :: Mod :: EasyDBI Descrição

Ovo :: Mod :: EasyDBI é um módulo DBI facilmente disponibilizado. Ovo :: Mod :: EasyDBI é um módulo DBI facilmente disponibilizado.synopsis Use ovo :: mod :: easydbi {debug => 1, trace => 1, upgrade_ok => 1, clear_ok => 1, alias => {membros => 'member_management_master', ...}, sql_abstract => {lógica => 'e', ......},}; Use o DBI; meu $ DBH = dbi-> conectar (......); Meu $ ES = Ovo :: Mod :: EasyDBI-> NOVO ($ DBH); $ ed-> traço (1); meu $ db = $ es-> db; Meus $ membros = $ db-> Membros; # Selecione * de membros onde id =? Meu $ Hoge = $ MEMBROS-> HASHREF ('ID =?', $ ID) || Die Q {Dados não são encontrados. }; # Selecione * dos membros onde idade>? My $ List = $ Members-> Arrayref ('Idade>?', 20) || Die Q {Dados não são encontrados. }; # Selecione ID de membros onde usuário =? Meus $ ID = $ MEMBROS-> SCALAR ('ID', 'User =?', 'boo') || Die Q {Dados não são encontrados. }; # A lista processada é adquirida. My $ List = $ Members-> Arrayref ('Idade>?', , Sub {My ($ Matriz,% hash) = @_; Push @ Matray, "$ hash}: $ hash {user }: $ hash {Idade} ";}) || Die Q {Dados não são encontrados. }; # Os dados que podem ser usados imediatamente são adquiridos. meu texto de $; $ Members-> Arrayref ('Idade>?', , Sub {My ($ matriz,% hash) = @_; $ text. = 1, usuário => 'zoo', idade => 20) || morrer q {falha em regista de dados. }; # Atualizar membros definir outros =?, Idade = idade + 1 onde id =? $ membros-> atualização (id => 1, outro => 'gao', idade => 1) || morrer q {falha na atualização de dados. }; ou $ membros-> atualização ('id =?', {id => , outro => 'gao', idade => 1}) || morrer q {falha na atualização de dados. }; # O registro é adicionado ao falhar na atualização. $ membros-> update_insert (usuário => 'zaza', idade => 22); # Isso adiciona se não houver registro. $ membros-> Find_insert (User => 'Zaza', idade => 22); # Atualizar membros definidos Idade =? $ membros-> upgrade (idade => 20); # Excluir dos membros onde usuário =? $ membros-> excluir ('usuário =?', 'zaza'); # Delete dos membros; $ membros-> claro; # A instrução SQL é usada como é. meu $ hash = $ es-> hashref (q {SELECT * de membros onde id =?}, $ ID); Minha lista $ = $ es-> arrayref (q {Select * from membros onde idade>?}, $ idade); meu $ Scalar = $ es-> escalar (q {Selecionar usuário de membros onde id =?}, $ ID); $ es-> do (q {inserir em valores de usuários (ID, usuário, idade) (?,? ,?)}, $ ID, USUÁRIO $, $ Era); # ] Suporte. Meu $ HASH = $ MEMBROS-> ABS_HASHREF (@fields,% onde, @order); Meu $ array = $ membros-> Abs_arrayref (@fields,% onde, @order); $ membros-> abs_insert (% fieldvals || @Values); $ membros-> ABS_UPDATE (% FieldVals,% onde); $ membros-> ABS_DELETE (% onde); # Tabela unindo. # # Selecione a.user, A.Message, B.ID, B.AGE, C.EMAIL_ADDR # Fornecedor de mensagens A UM MEMBROS B ON A.USER = B.USER # LEFT JOIN PROFIS C on b.id = c.id # Onde a.message_id =? # meu $ JDB = $ es-> db (qw / mensagens = membros: a.user = b.user arrayref ('a.user, a.message, b.id, b.age, c.email_addr', 'a.message_id =?', $ msgid); # Se você processar a transação # se commit_ok for indefinido, é sempre reverter. $ es-> commit_ok (1); $ es-> fechar; $ dbh-> Desconectar; Requisitos: · Requisitos de Perl: · Perl.

Ovo :: Mod :: EasyDBI Software Relacionado