SQL :: Preproc. SQL :: PrePROC ist ein Perl-Modul, um SQL in Ihren Perl (Ala SQL-Präprozessoren) einzubetten.
Jetzt downloaden

SQL :: Preproc. Ranking & Zusammenfassung

SQL :: Preproc. Stichworte

SQL. Perl-Modul einbetten SQL einbetten SQL-Präprozessoren.

SQL :: Preproc. Beschreibung

SQL :: PrePROC ist ein Perl-Modul, um SQL in Ihren Perl (ALA SQL-Präprozessoren) einzubetten. SQL :: PrePROC ist ein Perl-Modul, um SQL in Ihren Perl (ALA SQL-Präprozessoren) einzubetten (ALA SQL-Präprozessoren) .Synopsis verwenden SQL :: PreProc-Subclass => 'Diagramm', emit => 1, Keepsql => 1, Syntax => , pponly => 1, entspannen => 1, alias => 1, debug => 1; Verwenden Sie DBI; Verwenden Sie DBI QW (: SQL_TYPES); Verwenden Sie SQL :: PROPROC :: AUSSTATTUNG Verwenden Sie DBIX :: Chart; ... einiger Code ... mein ($ host, $ benutzer, $ passwd) = @argv; Deklarieren Sie den Kontext $ sqlpp_ctxt; Verbinden Sie sich mit "Teradata: $ host" Benutzer $ UserID, identifiziert von $ PASSWD als MyConn mit TDAT_MODE => ANSI; meine $ more_rows; Wann immer dies nicht, wenn sqlerror {my ($ ctxt, $ err, $ state, $ errmsg) = @_; Die $ IRMSG; } Deklarieren Sie den Cursor MyCursor als SELECT * von MyTable for Update; Öffnen Sie Mycursor; mein ($ col1, $ col2, $ col3, $ col4); Während ($ more_rows) {holen Sie MyCursor in: $ col1 ,: $ col2 ,: $ col3 ,: $ col4; if ($ col1> $ col4) {update mytable set col4 = col4 + 100 wo der Strom von Mycursor; }} Mycursor schließen; # # Machen Sie eine Bulkladung über Array-Bindung # My @ col1 = (); mein @ col2 = (); mein @ col3 = (); # # Laden Sie einige Daten in die Arrays, und senden Sie es dann an den DBMS # EXEC-SQL-Einsatz in irgendwalable Werte (: @ col1 ,: @ col2 ,: @ col3); # # Jetzt erstellen Sie ein Diagramm, das Dumping-Ergebnis für @_ # Select * aus MyTable Returning LineGraph (*), imagemap, wo Breite = 500 und Höhe = 500 und Format = 'png' und logo = 'myImage.png' und x_axis = ' Datum 'und y_axis =' Stock Preis 'und Mapname =' Stockmap 'und Signature =' Gowi Systems, Inc. ' Und Showpoints = 1 und Punkt = 'OpenCircle'; Offen (Outf, '> mychart.png') || Die $ !; binmode outf; drucken outf, $ _ ; close outf; offen (Outf, '> mychart.map') || Die $ !; Drucken von Outf, $ _ ; close outf; Myconn trennen Für Zieldatenbanksystemanforderungen: · Perl 5.8 (vorzugsweise 5.8.5) · DBI 1.42. · Filter :: einfach 0,78 · Text :: Balanced 1.95 · DBIX :: Grafik 0.01 (nur wenn Subclass => 'Diagramm') · DBI-Treiber für das Ziel-Datenbanksystem

SQL :: Preproc. Zugehörige Software