| SQL :: PREPROC SQL :: PREPROC es un módulo PERL para incrustar SQL en su PERL (Ala SQL PROPROCESSORS). |
Descargar ahora |
SQL :: PREPROC Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Dean Arnold
- Sitio web del editor:
- http://search.cpan.org/~darnold/
SQL :: PREPROC Etiquetas
SQL :: PREPROC Descripción
SQL :: PREPROC es un módulo PERL para incrustar SQL en su Perl (Ala SQL PROPROCESSORS). SQL :: PREPROC es un módulo PERL para incrustar SQL en su PERL (Ala SQL PREPROCESSORS) .SYNOPSIS Use SQL :: PREPROC Subclase => 'gráfico', emit => 1, KeepSQL => 1, Sintaxis => , pponly => 1, relax => 1, alias => 1, depuración => 1; Usa DBI; Use DBI QW (: SQL_TYPES); Use SQL :: PREPROC :: EXPEXCONETER; Utilice dbix :: gráfico; ... algún código ... mi ($ host, $ usuario, $ passwd) = @argv; Declare el contexto $ sqlpp_ctxt; Conéctese a "TERADATA: $ HOST" USERID $ ID de usuario identificado por $ passwd como MyConn con tdat_mode => ANSI; My $ more_rows; Siempre que no sea la sesión {$ MORE_ROWS = UNDREF} Siempre que SQLError {My ($ CTXT, $ ERR, $ State, $ errmsg) = @_; morir $ errmsg; } Declare el cursor Mycursor como selecto * de MyTable para actualizar; Abra Mycursor; mi ($ col1, $ col2, $ col3, $ col4); Mientras ($ More_rows) {Fetch Mycursor en: $ Col1 ,: $ Col2 ,: $ COL3 ,: $ COL4; if ($ col1> $ col4) {Actualizar el conjunto de MyTetable col4 = COL4 + 100 donde la corriente de Mycursor; }} Cerrar mycursor; # # hacer un bulto a través de una vinculación de matrices # mi @ col1 = (); mi @ col2 = (); mi @ col3 = (); # # Cargue algunos datos en las matrices, luego envíelo al inserto DBMS # EXEC SQL en valores tables (: @ @ col1 ,: @ col2 ,: @ col3); # # Ahora cree un gráfico, dumping los resultados en @_ # Select * de MyTable devolución de Línea (*), ImageMAP donde Anchura = 500 y altura = 500 y FORMAT = 'PNG' y logo = 'myimage.png' y x_axis = ' Fecha 'y Y_Axis =' Stock Precio 'y MAPNAME =' StockMap 'y Signature =' GOWI SYSTEMS, Inc. ' Y ShowPoints = 1 y Point = 'OpenCircle'; ABIERTO (OUTF, '> MyChart.png') || ¡DIE $!; BinMode Outf; Print Outf, $ _ ; cerrar Outf; ABIERTO (OUTF, '> MyChart.Map') || ¡DIE $!; Print Outf, $ _ ; cerrar Outf; Desconecte MyConn; Requisitos: · Perl 5.8+ (preferiblemente 5.8.5+) · DBI 1.42 · Filtro :: simple 0.78 · Texto :: Equilibrado 1.95 · DBIX :: gráfico 0.01 (solo cuando subclase => 'gráfico') · DBI Driver Para los requisitos del sistema de base de datos de destino: · Perl 5.8 (preferiblemente 5.8.5) · DBI 1.42 · Filtro :: simple 0.78 · Texto :: Equilibrado 1.95 · DBIX :: gráfico 0.01 (solo cuando subclass => 'gráfico') · Driver DBI para el sistema de base de datos de destino
SQL :: PREPROC Software relacionado