• Деревья Nested Sets (25)
• Гостевая книга на PHP/MySQL (42)
• Отправка писем через PHP (81)
• ICQ-пейджер для вашего сайта (26)
• Форум, работающий с базой данных MySQL (39)

• Переходим с PHP на Perl, как это ни печально... (181)
• Отправка писем через PHP (81)
• Модульное программирование на PHP или как написать маленький портал. (68)
• Программирование на php на примере галереи в 3 вариантах. (55)
• Долой процедурное программирование, даешь объектно -ориентированное! (51)

Работа с MySql

В последнее время весьма популярной базой данных стала MySql. Это неудивительно - небольшой, весьма и весьма шустрый, бесплатный сервер баз данных. Не лишенный, правда, недостатоков, среди которых основной (на мой взгляд) - отсутствие поддержки вложенных запросов. Но его скорострельность и бесплатность, по-видимому, сыграли решающую роль в выборе многих веб-мастеров использовать именно MySql в своих разработках.

Если я не ошибаюсь, то язык Perl занимает главенствующее положение в области Web-приложений. Основная масса CGI - скриптов и разнообразных информационных/управляющих систем на Web интерфейсе в данное время написано именно на Perl. Для этого языка накоплен огромный мировой опыт программирования, нашедший свое воплощение в библиотеке CPAN. Уже написана масса библиотек для всех случаев жизни (как вам например, bioperl - "A library of tools and modules of particular interest to biologists."?), и зачастую, вместо "изобретения велосипеда" нужно просто просмотреть список готовых библиотек Perl, наверняка, что-то уже написано по поводу решаемой вами проблемы. В данном случае, мы рассматривая взаимодействие языка Perl с сервером баз данных MySql, будем использовать библиотоеку DBD::mysql.

Для использования библиотеки DBD необходимо наличие библиотеки DBI, поэтому они должны быть установлены на компьютере, где используется скрипт. Кроме того, необходимо наличие сервера MySql где-нибудь поблизости от вас для тестовых работ.

В первую очередь,

#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=ваша_база_данных;host=адрес_сервера_mysql",
"логин", "пароль") || die $DBI::errstr;
@tables = $dbh->func( '_ListTables' );
foreach $line(@tables) {
print $line,"\n";
}
$dbh->disconnect();

таблица1
таблица2
таблица3

Unknown database 'ваша_база_данных' at try.pl line N.

Access denied for user: 'логин@ваш_хост.домен' (Using password: YES) at try.pl line N.

Итак, если удалось успешно законнектится, то вы получите список таблиц в вашей БД. Если нет - проверьте логин/пароль, поругайтесь с сисадмином, чтобы он вам разрешил доступ с вашей машины к серверу MySql. (Только на сисадмина сильно не наезжайте - может что-то плохое сделать вам, сам знаю, сам сисадмин:)).

CREATE TABLE links (
id TINYINT, name VARCHAR(64), url VARCHAR(128), category TINYINT
}

#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=ваша_база_данных;host=адрес_сервера_mysql",
"логин", "пароль") || die $DBI::errstr;
$dbh->do("CREATE TABLE links 
(id TINYINT, name VARCHAR(64), url VARCHAR(128), category TINYINT)");
$dbh->disconnect();

Метод указателя базы данных do готовит и исполняет одиночную инструкцию SQL. Возвращает количество выбранных строк или undef в случае ошибки. Если возврат = -1, то количество строк неизвестно или отсутствует. В нашем случае количество строк неактуально, поэтому мы опустили оператор присваивания.

sub do {
my($dbh, $statement, $attr, @bind_values) = @_;
my $sth = $dbh->prepare($statement, $attr) or return undef;
$sth->execute(@bind_values) or return undef;
my $rows = $sth->rows;
($rows == 0) ? "0E0" : $rows;
}

• поле AUTO_INCREMENT должно быть ключевым (первичный индекс) - key;
• индекс key не может создаваться по полю, которое может принимать значение null;

...
$dbh->do("ALTER TABLE links CHANGE id id TINYINT (4) not null");
$dbh->do("ALTER TABLE links ADD PRIMARY KEY(id)");
$dbh->do("ALTER TABLE links CHANGE id id TINYINT (4) not null AUTO_INCREMENT");
...

Теперь таблица links соответствует нашим требованиям. При добавлении новой записи знаяение поля id в оной автоматически будет увеличиваться на 1.

CREATE TABLE category (id TINYINT not null AUTO_INCREMENT, 
name VARCHAR (64) not null , PRIMARY KEY (id))

$dbh->do("CREATE TABLE category (id TINYINT not null 
AUTO_INCREMENT, name VARCHAR (64) not null , PRIMARY KEY (id))");

Теперь нужно в наши таблицы внести данные. Об этом в следующей статье