Mega Code Archive

 

Categories / Perl / CGI

 

Get form value with param

#!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();     } }