| Classe :: DBI. Classe :: DBI é um simples módulo de abstração de banco de dados. |
Baixe Agora |
Classe :: DBI. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Michael G Schwern
- Site do editor:
- http://search.cpan.org/~rosch/
Classe :: DBI. Tag
Classe :: DBI. Descrição
Classe :: DBI é um simples módulo de abstração de banco de dados. Classe :: DBI é um simples módulo de abstração de banco de dados.Synopsis Package Music :: DBI; Use a classe 'Classe :: DBI'; Música :: DBI-> Conexão ('DBI: MySQL: DBName', 'Nome de usuário', 'Senha'); Música de pacotes :: Artista; Use a "música :: dbi"; Música :: Artist-> Tabela ('Artista'); Música :: Artist-> Colunas (All => Nome QW / Artistid /); Música :: Artista-> Has_many (CDS => 'Music :: CD'); Música do pacote :: CD; Use a "música :: DBI '; Música :: CD-> Tabela ('CD'); Música :: CD-> Colunas (All => QW / CDID Título do artista Ano Reldate /); Música :: CD-> HAS_MANY (faixas => 'Music :: Track'); Música :: cd-> has_a (artista => 'música :: artista'); Música :: cd-> has_a (reldate => 'tempo :: peça', inflar => sub {tempo :: peça-> strptime (mudança, "% y-% m-% d")}, deflate => ' ymd ',); Música :: CD-> Might_Have (Liner_Notes => lineernotes => QW / Notes /); pacote de pacotes :: pista; Use a "música :: DBI '; Música :: Track-> Tabela ('Track'); Música :: Track-> Colunas (All => QW / Trackid CD Título /); # - Enquanto isso, em um pedaço de código próximo! - # My $ artista = música :: artista-> inserção ({artistid => 1, nome => 'u2'}); Meu $ CD = $ artist-> add_to_cds ({CDID => 1, title => 'outubro', ano => 1980,}); # Oops, errando. $ cd-> ano (1981); $ CD-> Atualização; # etc. foreach My $ Track ($ CD-> Faixas) {Imprimir $ Track-> Posição, $ Track-> Título} $ CD-> delete; # também exclui as faixas Minha $ CD = Música :: CD-> Recuperação (1); my @cds = music :: cd-> retieve_all; my @cds = music :: cd-> pesquisa (ano => 1980); my @cds = music :: cd-> search_like (title => 'outubro%'); Requisitos: · Perl.
Classe :: DBI. Software Relacionado