SQL :: Preproc. SQL :: Preproc adalah modul Perl untuk menanamkan SQL di Perl Anda (ALA SQL Preprocessors).
Unduh sekarang

SQL :: Preproc. Peringkat & Ringkasan

SQL :: Preproc. Tag

SQL modul perl menanamkan embed sql. SQL Preprocessors.

SQL :: Preproc. Keterangan

SQL :: Preproc adalah modul Perl untuk menanamkan SQL di Perl Anda (ALA SQL Preprocessors). SQL :: preproc adalah modul Perl untuk menanamkan SQL dalam Perl Anda (ALA SQL Preprocessors) .synopsis Gunakan SQL :: preproc subclass => 'grafik', emit => 1, sintaks => , pponly => 1, rileks => 1, alias => 1, debug => 1; Gunakan DBI; Gunakan DBI QW (: sql_types); Gunakan SQL :: Preproc :: KecualiContainer; Gunakan DBIX :: grafik; ... beberapa kode ... My ($ host, $ user, $ passwd) = @Argv; Mendeklarasikan konteks $ sqlpp_ctxt; Hubungkan ke "Teradata: $ host" Pengguna $ userid yang diidentifikasi oleh $ passwd sebagai myconn dengan tdat_mode => ANSI; $ more_rows saya; Setiap kali Notfound {$ LEBIH_ROWS = UNDEF} Setiap kali SQLError {My ($ CTXT, $ ERT, $ state, $ errmsg) = @_; die $ errmsg; } Deklarasikan kursor MyCursor sebagai Pilih * dari MyTable untuk Pembaruan; Buka MyCursor; saya ($ col1, $ col2, $ col3, $ col4); sementara ($ more_rows) {fetch mycursor menjadi: $ col1,: $ col2,: $ col3,: $ col4; If ($ col1> $ col4) {perbarui set mytable col4 = col4 + 100 di mana arus mycursor; }} Tutup mikursor; # # lakukan bulat melalui array binding # my @ col1 = (); my @ col2 = (); my @ col3 = (); # # muat beberapa data ke dalam array, lalu kirim ke DBMS # exec SQL menyisipkan ke nilai-nilai musim (: @ col1,: @ col3); # # Sekarang buat grafik, hasil pembuangan ke @_ # pilih * dari mytable returning lineGraph (*), imagemap di mana lebar = 500 dan tinggi = 500 dan format = 'PNG' dan X_AXIS = ' Tanggal 'dan y_axis =' harga saham 'dan mapname =' stockmap 'dan tanda tangan =' Sistem Gowa, Inc. ' Dan showpoints = 1 dan point = 'opencircle'; Buka (outf, '> mychart.png') || Die $!; BinMode Outf; Cetak Outf, $ _ ; Tutup Outf; Buka (outf, '> mychart.map') || die $ !; mencetak OUTF, $ _ ; OUTF dekat; PUTUSKAN myconn; Persyaratan: · Perl 5.8+ (sebaiknya 5.8.5+) · DBI 1,42 · Filter :: Simple 0,78 · Teks :: Seimbang 1,95 · DBIx :: Bagan 0,01 (hanya ketika subclass => 'Chart') · DBI driver target Persyaratan sistem database: · Perl 5.8 (sebaiknya 5.8.5) · DBI 1,42 · Filter :: Simple 0,78 · Teks :: Seimbang 1,95 · DBIx :: Bagan 0,01 (hanya ketika subclass => 'Chart') · DBI driver untuk sistem database target

SQL :: Preproc. Perangkat Lunak Terkait