Re: FAQ error

> On 10 Oct 2001 at 17:12 (-0400), Bruce Momjian wrote:
> | 
> | Our FAQ, item 4.16.2 has:
> | 
> |     $newSerialID = nextval('person_id_seq');
> |     INSERT INTO person (id, name) VALUES ($newSerialID, 'Blaise Pascal');
> | 
> | Is this correct Perl?  I don't see a nextval() function in Perl.  Can
> | you call SQL server-side functions natively from Perl?
> 
> no. The proper perl code would be more like...
> 
> use DBI;
> my ($lastid,$nextid,$sql,$rv);
> my $dbh = DBI->connect("perldoc DBD::Pg");
> 
> # to use the nextval
> $sql = "SELECT nextval('person_id_seq')";
> $nextid = ($dbh->selectrow_array($sql))[0];
> $sql = "INSERT INTO person (id, name) VALUES ($nextid, 'Blaise Pascal');
> $rv = $dbh->do($sql);

OK, new FAQ code is:
   $sql = "SELECT nextval('person_id_seq')";   $newSerialID = ($conn->selectrow_array($sql))[0];   INSERT INTO person
(id,name) VALUES ($newSerialID, 'Blaise Pascal');   $res = $dbh->do($sql);
 
> 
> # or to get the currval
> $sql = "INSERT INTO person (name) VALUES ('Blaise Pascal');
> $rv = $dbh->do($sql);
> $sql = "SELECT currval('person_id_seq')";
> $lastid = ($dbh->selectrow_array($sql))[0];

and:
   INSERT INTO person (name) VALUES ('Blaise Pascal');   $res = $conn->do($sql);   $sql = "SELECT
currval('person_id_seq')";  $newSerialID = ($conn->selectrow_array($sql))[0];
 

--  Bruce Momjian                        |  http://candle.pha.pa.us pgman@candle.pha.pa.us               |  (610)
853-3000+  If your life is a hard drive,     |  830 Blythe Avenue +  Christ can be your backup.        |  Drexel Hill,
Pennsylvania19026