SQL :: db.

Perl Interface para bancos de dados SQL
Baixe Agora

SQL :: db. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Mark Lawrence
  • Site do editor:
  • http://search.cpan.org/~mlawren/

SQL :: db. Tag


SQL :: db. Descrição

SQL :: DB é um módulo Perl que fornece uma interface de baixo nível para bancos de dados SQL, usando objetos Perl e operadores lógicos. Não é um objeto Relacional Mapper como Classe :: DBI e nem é uma abstração, como SQL :: Resumo. Ele cai em algum lugar inbetween.After usando Define_Tables () Para especificar seu esquema e criar um objeto SQL :: DB, o fluxo de trabalho típico é o seguinte: * Connect () ao banco de dados * Implantar () o esquema (criar tabelas etc) * usando Uma ou mais "linhas abstratas" obtidas via AROW () você pode fazer () inserir, atualizar ou excluir consultas. * Usando uma ou mais "linhas abstratas" obtidas via AROW () você pode buscar () (selecione) dados para trabalhar com (e possivelmente modificar). * Repita os três passos acima, conforme necessário. Outras consultas (com um nível mais alto de automação) são possíveis com os objetos retornados por busca (). * Desconectar () no banco de dados.sql :: db é capaz de gerar praticamente qualquer tipo de consulta, incluindo, mas não limitado a , Junta-se, selecções aninhadas, sindicatos, invocações do operador do lado do banco de dados, chamadas de função, expressões agregadas, etc. No entanto, este pacote ainda é bastante novo, e em nenhum lugar próximo. Feedback, testes, e (ainda melhor) patches são todos bem-vindos.Synopsis Use SQL :: DB QW (Define_Tables Count Max); define_tables (, coluna => , coluna => ,], , coluna => , coluna => , coluna => , coluna => , index => 'nome',]); meu $ db = sql :: db-> new (); $ db-> Connect ('DBI: sqlite: /tmp/sqldbtest.db', 'User', 'Pass', {}); $ db-> implantar; Meus $ Pessoas = $ DB-> AROW ('PESSOAS'); meus endereços $ DB-> AROW ('endereços'); $ db-> do (inserir => , valores => ,); $ db-> do (inserir => , valores => , # pg: , onde => $ Pessoa-> nome == 'Homer',); Meu $ ANS = $ DB-> Fetch1 (Select => , de => $ Pessoas, onde => $ pessoas-> idade> 40,); # As seguintes impressões "Chead Count: 1 Idade máxima: 43" Imprimir "Count Count:". $ ans-> count_name. 'Idade máxima:'. $ ans-> max_age. "\ n"; Meus @Items = $ db-> Fetch (Select => , de => $ Pessoas, Left_Join => $ endereços, on => $ endereços -> ID == $ Pessoas-> endereço, onde => ($ endereços-> Cidade == 'Springfield') e ($ Pessoas-> Idade> 40), Order_By => $ Pessoas-> Idade-> Descarregar => 10,); # Me dar "Homer (43) vidas em Springfield" foreach meu item $ (@Items) {Imprimir $ Item-> Nome, '(', $ Item-> Idade, ') vive em', $ item-> cidade, "\ n"; } Homepage do produto


SQL :: db. Software Relacionado