>$sth = $dbh->prepare("create table customer (ID serial PRIMARY KEY, name
>text NOT NULL, email text NOT NULL, phone text NOT NULL, fax text
>DEFAULT, address text NOT NULL, address2 text DEFAULT, zip text NOT
>NULL, city text NOT NULL, state text NOT NULL, country text NOT NULL")
>or die "Could not Create Table: $DBI::errstr";
It looks like you're missing a ")" in there somewhere.
Parse error usually = syntax error.
--
Jeremy Buchmann
System Admin/Database Programmer
Wells Gaming Research
----------
>From: "David Coley" <davidcoley@home.com>
>To: <pgsql-interfaces@postgresql.org>
>Subject: [INTERFACES] Create tables using Perl DBI
>Date: Mon, Nov 20, 2000, 12:50 PM
>
> I've been trying to learn how to use PostgreSQL and Perl together on a test
> machine at work. My problem is that I can not seem to get it working. The
> documentation on the subject don't seem to be that in-depth and tutorials
> seem lacking :)
>
> Below is my third or forth try at getting my database to connect and create
> a table. I've included the error code for the code snippet. Any help would
> be GREATLY appreciated.
>
>
> === Begin Code ===
>
> #!/usr/bin/perl
>
> # Use the Database Binding Interface
> use DBI;
>
> # We want to use the database which is kwsclient
> $dbh = DBI->connect("dbi:Pg:dbname=kwsclient","db","PASSWORD")
> or die "Connecting: $DBI::errstr";
>
> #abcdefghijklmnopqrstuvwxyz
> $sth = $dbh->prepare("create table customer (ID serial PRIMARY KEY, name
> text NOT NULL, email text NOT NULL, phone text NOT NULL, fax text
> DEFAULT, address text NOT NULL, address2 text DEFAULT, zip text NOT
> NULL, city text NOT NULL, state text NOT NULL, country text NOT NULL")
> or die "Could not Create Table: $DBI::errstr";
> $sth->execute;
> #disconnect from the database.
> $dbh->disconnect();
> # END
>
> === End Code ===
>
> === Error Message ===
> DBD::Pg::st execute failed: ERROR: parser: parse error at or near ","
>
>
> Thanks for the help.
>
> David Coley
> davidcoley@home.com
> http://www.davidcoley.com
>
>