我正在尝试使用 Perl 从网页中删除 MySQL 表行。我想遍历复选框,如果选中一个,则数据库中的该行将被删除。我已将复选框的值设为自动递增键值。这是我的一段代码,因此您可以按表格了解我的位置:
while (@data = $STH1->fetchrow_array()) {
print "<tr>";
print " <td>$data[2]</td>";
print " <td>$data[3]</td>";
print " <td>$data[7]</td>";
print " <td>$data[6]</td>";
print " <td>$data[4]</td>";
print " <td>$data[5]</td>";
print " <td>$data[1]</td>";
print "<td>";
print '<form><center>';
print checkbox(
-name => 'delete',
-value => 'data[0]',
-selected => 0,
-label => 'delete'
);
print '<center></form>';
print "</td>";
print "</tr>";
}
如果选中复选框,我只是不明白如何使它删除一行。