Реферат: Проектирование информационных систем на базе MySQL и Internet
list.cgi
use CGI qw(:standard);
use DBI;
print header();
print start_html("Список Вакансий для пользователя");
print qq{<body bgcolor="#faf1d8">};
print "<center><h1>Перечень вакансий</h1></center>";
print "<center>Выберите вакансию и заполните анкету</center>";
print "<br>";
$dbh=DBI->connect("dbi:mysql:konti");
$sth=$dbh->prepare("SELECT * FROM t1;");
$rows=$sth->execute();
print "<form action=\"http://myserver/cgi-bin/anketa.bat\">";
print "<center><table border=1>";
print qq{<tr ALIGN="center"><th> № </th>
<th>Вакансия</th><th> Конкурс <br>на место</th>
<th>Ваш<br>выбор</th></font></tr>};
for($i=0;$i<$rows;$i++)
{
($bakans,$knkrs,$ed,$Cpc,$Crok)=$sth->fetchrow_array;
$i++;
print "<tr>
<td ALIGN=\"center\">$i</td>";
$i--;
print"<td>$bakans</td>
<td><center>$knkrs</center></td>
<TD><center><INPUT type=\"radio\" name=\"vibor\" value=\"vib$i\"></center></TD>
</tr>";