#!/usr/bin/perl -wT # example 11-5 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-5 Output
HTML while($data = $sth->fetchrow_hashref){ print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); } print qq(
SKU Product Description # in Stock Price
$data->{sku}$data->{name}$data->{descr}$data->{stock}$data->{price}
); $dbh->disconnect;