В стандартизированную поставку Perl, как правило, включен модуль Mysql. Но, если это не так, то с помощью утилиты ppm.bat устанавливается не только этот, но и любой модуль, которого недостает.

Далее use Mysql подключается к БД следующим образом:

$db = Mysql->Connect($host,$database,$password,$user);

В случае использования команды Connect без аргументов (может быть и пустая строка вместо первого аргумента), слелует связаться с UNIX /dev/mysql, что повышает качество соединения. Если же аргумент $database не обозначен, то придется прибегнуть к выбору базы данных:

$db->SelectDB($database);

Далее – работа с базой. Командой

$sth=ListFields($db,$table);

вызывается список полей одной из таблиц, после чего из объекта $sth извлекается необходимый массив информации.

@arr=$sth->name Возврат массива имен столбцов
@arr=$sth->length Возврат массива длин столбцов
$val=$sth->numfields Возврат количества столбцов в таблице
@arr=$sth->type Массив MySQL типов
@arr=$sth->is_num Массив 0 и 1, в котором 1 показывает, что столбец числовой
@arr=$sth->is_blob Массив 0 и 1, в коротом 1 показывает, что столбец - blob
@arr=$sth->is_not_null Массив 0 и 1, в котором 1 указывает, что столбец - не является NULL.

Через команду @arr=$db->ListDBs можно посмотреть, какие базы данных имеются.

Через команду @arr=$db->ListTables можно ознакомиться со списком таблиц базы.

SQL запрос выполняется через команду $sth=$db->Query($sql);

Команды FetchRow, FetchCol и FetchHash дают результат запроса $sql. Их синтаксис:

@arr=$sth->FetchRow; Возврат в массиве первой строки запроса.

@arr=$sth->FetchCol($col); Возврат массива элементов колонки по номеру $col из запроса.

%hash=$sth->FetchHash; Возврат ассоциативного массива, который содержит следующую строку, пришедшую с сервера.

Можно быстро переместиться на требуемую строку с результатом запроса через команду:

DataSeek($sth, $number);

При необходимости экранирования некоторых символов для внесения в MySQL входить через команду $scaler=$db->quote($string);