| Gbpvr :: cdbi. gbpvr :: cdbi é uma abstração de banco de dados para GBPVR. |
Baixe Agora |
Gbpvr :: cdbi. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- David Westbrook
- Site do editor:
- http://search.cpan.org/~davidrw/
Gbpvr :: cdbi. Tag
Gbpvr :: cdbi. Descrição
GBPVR :: CDBI é uma abstração de banco de dados para GBPVR. Gbpvr :: cdbi é uma abstração de banco de dados para gbpvr.synopsisexample para pesquisar as listagens de programas: use gbpvr :: cdbi :: programa; Meus @rows = gbpvr :: CDBI :: Programme-> Search_like (nome => 'estrela%'); Exemplo para exibir os shows gravados: use GBPVR :: CDBI :: RecordingSchedule; Meus @rows = GBPVR :: CDBI :: RecordingSchedule-> Pesquisa (status => 2); foreach my $ Row (@rows) {printf "----------------------- N"; printf "% s - '% s'n", $ row-> programme_oid-> nome, $ row-> programme_oid-> sub_title; printf "n", $ row-> nome do arquivo; Printf "% SN", $ Row-> Programma_oid-> Descrição; } Exemplo para mostrar shows pendentes (sim, você deve ser capaz de encomendar_by via busca () e não ter que chamar classificar): use gbpvr :: cdbi :: recordingschedule; Meus @rows = gbpvr :: CDBI :: RecordingSchedule-> Pesquisa (status => 0); @rows = classificar {$ a-> manual_start_time cmp $ b-> manual_start_time} @rows; foreach my row (@rows) {printf "% -20s% 8s% s - '% s'n", $ row-> manual_start_time, $ row-> programme_oid-> canal_oid-> nome, $ row-> Programma_oid- > Nome, $ row-> programme_oid-> sub_title; Printf "% SN", $ Row-> Programma_oid-> Descrição; } Exemplo para forçar todas as gravações 'Simpsons' programadas para ser baixa qualidade: use GBPVR :: CDBI :: RecordingSchedule; Meu $ ITerator = GBPVR :: CDBI :: RecordingSchedule-> Retreane_all; enquanto (minha $ row = $ iterator-> next) {próximo a menos de $ row-> programme_oid-> nome = ~ / simpsons / i; Em seguida, se $ row-> Quality_level == 2; $ row-> Quality_level (2); $ row-> Atualização; } GBPVR :: CDBI :: RecordingSchedule-> dbi_commit; Requisitos: · Perl.
Gbpvr :: cdbi. Software Relacionado