#! /usr/bin/perl -w
use DBI;
use CGI qw/:standard :html3/;
use CGI::Carp qw(fatalsToBrowser);
gen_table();
#### extract data from DB
sub query_data {
my $user_entry = @_;
my $dbh = connect_try("rowan","******");
my $user_quoted = $dbh->quote ($user_entry);
my $sth = $dbh->prepare ("SELECT id_pro,str_no_addr,
str_name_addr,cit_addr
FROM s3a_inglewood_project_info
WHERE str_name_addr LIKE $user_quoted;") or
err_trap("failed to prepare statement\n");
$sth->execute or
err_trap("failed to execute statement\n");
my $array_ref = $sth->fetchall_arrayref();
$dbh->disconnect or
err_trap("failed to disconnect at get_date statement\n");
return $array_ref;
}
#### connection ruitine
sub connect_try {
my ($db_user,$db_password) = @_;
my $dbh = DBI->connect("dbi:mysql:studio_3:##.##.###.##", "$db_user",
"$db_password") or err_trap("error connecting to DB");
return $dbh;
}
sub gen_table {
my $array_ref=query_data('%Ave%');
my @headings = ('id no.','street no.','street name','city');
my @rows = th([EMAIL PROTECTED]);
foreach my $row_array (@$array_ref) {
my ($id,$str_no,$str_name,$city) = @$row_array;
push(@rows,"td([$id,$str_no,$str_name,$city])");
}
print table({-border=>undef,-width=>'25%'},
caption(b('Wow. I can multiply!')),
Tr([EMAIL PROTECTED])
);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
