40 lines
1.2 KiB
Perl
40 lines
1.2 KiB
Perl
|
#!c:/ActivePerl/bin/perl.exe
|
||
|
|
|
||
|
|
use DBI;
|
||
|
|
use CGI qw(:standard);
|
||
|
|
|
||
|
|
print header, start_html(-title=>"Team Lookup",-BGCOLOR=>"#66ff33");
|
||
|
|
print start_form,"<font face='arial' size='+1'>Look up what name? ",textfield('name'),p;
|
||
|
|
print submit, end_form, hr;
|
||
|
|
|
||
|
|
if(param()) {
|
||
|
|
$team = param('name');
|
||
|
|
|
||
|
|
$dbh = DBI->connect("DBI:mysql:host=localhost;database=sample_db;user=root;password=") or print "Connection failed: ". $DBI::errstr;
|
||
|
|
$sth=$dbh->prepare("SELECT name, salary, age FROM teams where name = ?");
|
||
|
|
$sth->execute($team);
|
||
|
|
if ($sth->rows == 0){
|
||
|
|
print "Your team isn't in the table.<br>";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
print h2("Data for \u$team");
|
||
|
|
while(($name,$salary,$age) = $sth->fetchrow_array()){
|
||
|
|
print <<EOF;
|
||
|
|
<table border="1">
|
||
|
|
<tr>
|
||
|
|
<th>Name</th>
|
||
|
|
<th>Salary</th>
|
||
|
|
<th>Age</th>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td>$name</td>
|
||
|
|
<td>$salary</td>
|
||
|
|
<td>$age</td>
|
||
|
|
</tr>
|
||
|
|
</table>
|
||
|
|
EOF
|
||
|
|
print end_html();
|
||
|
|
$sth->finish();
|
||
|
|
$dbh->disconnect();
|
||
|
|
}
|
||
|
|
}
|