| SQL :: PreProc SQL :: PreProc est un module Perl pour intégrer SQL dans votre Perl (préprocesseurs ALA SQL). |
Télécharger maintenant |
SQL :: PreProc Classement & Résumé
- Licence:
- Perl Artistic License
- Nom de l'éditeur:
- Dean Arnold
- Site Internet de l'éditeur:
- http://search.cpan.org/~darnold/
SQL :: PreProc Mots clés
SQL :: PreProc La description
SQL :: PreProc est un module Perl pour intégrer SQL dans votre Perl (préprocesseurs ALA SQL). SQL :: PreProc est un module Perl pour incorporer SQL dans votre Perl (préprocesseurs ALA SQL) .Synopsis Utilisez SQL :: Preproc Sous-classe => 'Graphique', EMIT => 1, Keepsql => 1, Syntax => , pponly => 1, se détendre => 1, alias => 1, débogage => 1; utiliser dbi; Utilisez DBI QW (: SQL_TYPES); Utilisez SQL :: PreProc :: SauteContainer; Utilisez dbix :: graphique; ... Quelqu'un code ... mon ($ hôte, $ utilisateur, $ passwd) = @argv; Déclarez contexte $ SQLPP_CTXT; Connectez-vous à "Teradata: Hôte $" User $ Userid identifié par $ passwd comme myConn avec tdat_mode => ANSI; mon $ plus_aux; Chaque fois que tout n'a pas encore de temps {$ plus_rows = UNDEF} chaque fois que SQLERROR {MY ($ MY ($ CTXT, $ ERR, $ State, $ ERRMSG) = @_; DIE $ ERRMSG; } Déclarez le mycurseur du curseur comme Select * de MyTable pour la mise à jour; Ouvrir Mycursor; mon ($ col1, $ col2, $ col3, $ col4); tandis que ($ plus_rws) {fetch mycursor dans: $ col1 ,: $ col2 ,: $ col3 ,: $ col4; Si ($ COL1> $ COL4) {MAJET MYTABLE SET COL4 = COL4 + 100 Lorsque le courant de mycurseur; }} Fermer mycursor; # # Faites une bulkload via la liaison réseau # mon @ col1 = (); mon @ col2 = (); mon @ col3 = (); # # Chargez certaines données dans les tableaux, puis envoyez-la à l'insert SQL SQL SQL SQL SQL SQL (: @ COL1,: @ COL2,: @ COL3); # # NOW # Créez maintenant un graphique, des résultats dumping sur @_ # Sélectionnez * à partir de myTable Retour de ligneGGRAPH (*), ImageMAP où la largeur = 500 et hauteur = 500 et format = 'png' et logo = 'myImage.png' et x_axis = ' Date 'et Y_Axis =' Prix de stock 'et MapName =' StockMap 'and Signature =' Gowi Systems, Inc. ' Et showpoints = 1 et point = 'opencircle'; Open (Outf, '> mychart.png') || Die $ !; binmode sortie; impression de sortie, $ _ ; Fermer la sortie; Open (Outf, '> mychart.map') || Die $ !; impression de sortie, $ _ ; Fermer la sortie; Déconnectez MyConn; Conditions requises: · Perl 5.8+ (de préférence 5.8.5+) · DBI 1.42 · Filtre :: Simple 0,78 · Texte :: Balanced 1.95 · DBIX :: Graphique 0,01 (uniquement lorsque la sous-classe => "Tableau") · Pilote DBI Pour les exigences du système de base de données cible: · Perl 5.8 (de préférence 5.8.5) · DBI 1.42 · Filtre :: Simple 0.78 · Texte :: équilibré 1.95 · DBIX :: Graphique 0,01 (uniquement lorsque la sous-classe => "graphique") · Pilote DBI pour le système de base de données cible
SQL :: PreProc Logiciels associés