#!/usr/bin/perl -wT # example 11-6 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; my ($sku,$prod,$desc,$stock,$price); $sth->bind_columns(undef, \($sku, $prod, $desc, $stock, $price)); print header; print < Example 11-6 Output
HTML while($data = $sth->fetch){ 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
$sku$prod$desc$stock$price
); $dbh->disconnect;