SQL::Preproc 0.10

SQL::Preproc is a Perl module to embed SQL in your Perl (ala SQL preprocessors). SYNOPSIS use SQL::Preproc subclass => Chart, emit => 1, keepsql => 1, syntax => [ Teradata ], pponly => 1, relax => 1, alias => 1, debug => 1; use DBI; use DBI qw(:sql_types); use SQL::Preproc::ExceptContainer; use DBIx::Chart; ...some code... my ($host, $user, $passwd) = @ARGV; DECLARE CONTEXT $sqlpp_ctxt; CONNECT TO "Teradata:$host" USER $userid IDENTIFIED BY $passwd AS myconn WITH tdat_mode => ANSI; my $more_rows; WHENEVER NOTFOUND { $more_rows = undef } WHENEVER SQLERROR { my ($ctxt, $err, $state, $errmsg) = @_; die $errmsg; } DECLARE CURSOR mycursor AS SELECT * FROM mytable FOR UPDATE; OPEN mycursor; my ($col1, $col2, $col3, $col4); while ($more_rows) { FETCH mycursor INTO :$col1, :$col2, :$col3, :$col4; if ($col1 > $col4) { UPDATE mytable SET col4 = col4 + 100 WHERE CURRENT OF mycursor; } } CLOSE mycursor; # # do a bulkload via array binding # my @col1 = (); my @col2 = (); my @col3 = (); # # load some data into the arrays, then send it to the DBMS # EXEC SQL INSERT INTO sometable VALUES(:@col1, :@col2, :@col3); # # now create a chart, dumping results to @_ # SELECT * FROM mytable RETURNING LINEGRAPH(*), IMAGEMAP WHERE WIDTH=500 AND HEIGHT=500 AND FORMAT=PNG AND LOGO=myimage.png AND X_AXIS=Date AND Y_AXIS=Stock Price AND MAPNAME=stockmap AND SIGNATURE=GOWI Systems, Inc. AND SHOWPOINTS=1 AND POINT=opencircle; open(OUTF, >mychart.png) || die $!; binmode OUTF; print OUTF, $_[0]; close OUTF; open(OUTF, >mychart.map) || die $!; print OUTF, $_[1]; close OUTF; DISCONNECT myconn;.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Ala,  Embed,  In Your,  Libraries,  Module,  Outf,  Perl,  Perl Module,  Preprocessors,  Programming,  Sql,  Sqlpreproc
Users rating:	0/10