On Thu, 8 Aug 2002 10:33:27 -0400, [EMAIL PROTECTED] (Rob) wrote: >Does any one know of an example script that uses the DBI module, connects >to a PostgreSql database, query's the db, and inserts a record. > >I've been using flat text files for any storage that I've needed in the >past but would like to move on with the learning process. I've read the >perldoc for DBI but I think a small working example would help me out a >great deal.
Make sure postgres is running, put in your username, make sure the db ztest is created first. This just fills up a products table with random data. #!/usr/bin/perl -w ############################################################################### # insert_product : this script will insert records into the # products table ############################################################################### use DBI; my $database_name = "ztest"; my $database = "dbi:Pg:dbname=$database_name"; my $db_user = "zentara"; my $PRODUCT_TB = "products"; # number of record to insert into the table my $rec_num = 1000; ############################################################################### my $dbh = DBI->connect($database,$db_user,"") or die "Can't connect to database\n"; $dbh->do("CREATE TABLE products ( name varchar(50), price int4, description varchar(50), pic_location varchar(50) )"); my $sth = $dbh->prepare("INSERT INTO $PRODUCT_TB(name,price,description, pic_location) VALUES (?,?,?,?)"); for ($i = 1; $i <= $rec_num; $i++){ my $name = "Product $i"; my $price = rand 350; #my $category = rand 3; my $desc = "Description of product $i"; my $pic = "images/product/product".$i.".jpg"; $sth->execute($name,$price,$desc,$pic); } print "Finish inserting $rec_num records into table $PRODUCT_TB\n"; $dbh->disconnect; exit(); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]