Есть маленькая база test_db с одной таблицей test_lab, в которой два поля - id и fio. Вот скрипт, с помощью которого в форму вносится ФИО, затем по нажатию кнопки данные вносяться в базу и выводяться в браузер:
#!/usr/bin/perl
# Путь к интерпретатору
#прагмы интерпретартора
use strict;
use warnings;
#подключаемые модули
use CGI;
use DBI;
my $query=new CGI;
# подключение к базе данных
my $dbh=DBI->connect('DBI:mysql:database=test_db;host=localhost','root','q',
{AutoCommit=>1,RaiseError=>1,PrintError=>0});
my $t = $query->param("t");
print "Content-Type: text/html\n";
print "\n";
if ($t eq "save") {
my $fio = $query->param("fio");
my $sth = $dbh->prepare("INSERT INTO test_lab VALUES(null,?);");
$sth->execute($fio);
$sth = $dbh->prepare("SELECT * FROM test_lab;");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
print $row[1]."<br>";
}
}
print "<html><head></head><body>
<form action='/index.pl'>
<input type='hidden' name='t' value='save'>
<input type='text' name='fio'> </br>
<input type='submit'>
</form>
</body></html>";
Мне нужно добавить в таблицу пару полей, что я через консоль mysql успешно сделал, база сейчас выглядит так:
Field | Type | Null | Key | Default | Extra |
+----------+--------------+------+-----+---------+----------------+
| id | int(11) | NO | PRI | NULL | auto_increment |
| fio | varchar(100) | YES | | NULL | |
| birthday | int(4) | NO | | NULL | |
| gender | varchar(10) | NO | | NULL | |
+----------+--------------+------+-----+---------+----------------+
Я так понимаю, что в html-разметку нужно дописать input'ы для вставки в поля birthday и gender. А вот как это правильно дописать в самом коде - малость не понимаю...что нужно помудрить с INSERT INTO... Буду признателен за помощь!
