#!/usr/bin/perl -wT # example 11-4 use strict; use DBI; use CGI qw(:standard); my $data; my $dbh = DBI->connect("DBI:mysql:book","book","addison") or die "Error: $DBI::errstr\n"; my $sql = "SELECT sku, name, descr, stock, price FROM products"; my $sth = $dbh->prepare($sql); $sth->execute; print header; print < Example 11-4 Output
HTML while($data = $sth->fetchrow_arrayref){ print qq(\n); foreach(@$data){ print qq(\n); } print qq(\n); } print qq(
SKU Product Description # in Stock Price
$_
); $dbh->disconnect;