| SQL :: Preproc. SQL :: Preproc é um módulo Perl para incorporar o SQL em seu Perl (pré-processadores Ala SQL). |
Baixe Agora |
SQL :: Preproc. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Dean Arnold
- Site do editor:
- http://search.cpan.org/~darnold/
SQL :: Preproc. Tag
SQL :: Preproc. Descrição
SQL :: Preproc é um módulo Perl para incorporar o SQL em seus PERL (pré-processadores Ala SQL). SQL :: Preproc é um módulo Perl para incorporar SQL em seu perl (pré-processadores ALA SQL) .Synopsis Use SQL :: Preproc subclasse => 'Gráfico', emit => 1, KeepSql => 1, Syntax => , Ppony => 1, relax => 1, alias => 1, debug =>> 1; Use o DBI; Use o DBI QW (: sql_types); Use SQL :: Preproc :: ExceptContainer; Use o DBIX :: Gráfico; ... algum código ... meu ($ host, $ user, $ passwd) = @AARGV; Declarar contexto $ sqlpp_ctxt; Conecte-se a "Teradata: $ host" usuário $ userid identificado por $ passwd como myconn com tdat_mode => ansi; meus $ mais_rows; Sempre que Notfound {$ More_rows = Undef} sempre que sqlerror {my ($ CTXT, $ ERR, $ state, $ errmsg) = @_; morrer $ ersmsg; } Declarar o cursor MyCursor como Select * De MyTable para Atualização; MyCursor aberto; meu ($ col1, $ col2, $ col3, $ col4); enquanto ($ More_rows) {buscar MyCursor em: $ col1,: $ col2,: $ col3,: $ col4; if ($ COL1> $ COL4) {Atualizar MyTable Set Col4 = Col4 + 100 onde corrente de MyCursor; }} Perto MyCursor; # # faça um bulkload via ligao de matriz # meu @ col1 = (); meu @ col2 = (); meu @ col3 = (); # # Carregue alguns dados nas matrizes e envie-o para o DBMS # Exec SQL Insert em valores de soma (: @ COL1,: @ COL2,: @ COL3); # # Agora Crie um gráfico, Dumping Results para @_ # Selecione * Do LineGraph de Retorna MyTable (*), ImageMap onde largura = 500 e altura = 500 e formatar = 'png' e logotipo = 'myimage.png' e x_axis = ' Data 'e Y_Axis =' Preço de estoque 'e mapame =' stockmap 'e assinatura =' Sistemas Gowi, Inc. ' E Showpoints = 1 e ponto = 'Opencircle'; Aberto (Outf, '> myChart.png') || morrer $! binmode outf; Imprimir Outf, $ _ ; Fechar Outf; Aberto (Outf, '> MyChart.map') || morrer $! Imprimir Outf, $ _ ; Fechar Outf; Desconectar MyConn; Requisitos: · Perl 5.8+ (de preferência 5.8.5+) · DBI 1.42 · Filtrar :: Simples 0.78 · Texto :: Balanceado 1.95 · DBIX :: Gráfico 0.01 (somente quando subclasse => 'gráfico') · DBI driver Para requisitos do sistema de banco de dados de destino: · Perl 5.8 (de preferência 5.8.5) · DBI 1.42. · Filtrar :: Simples 0.78 · Texto :: Balanceado 1,95 · DBIX :: Gráfico 0.01 (somente quando subclasse => 'Gráfico') · Driver DBI para sistema de banco de dados de destino
SQL :: Preproc. Software Relacionado