Perl и DBI: первый сценарий с MySQL

В этой статье мы попробуем разобраться вместе, как использовать БД MySQL с Perl.
Это должен непосредственно предшествовать, что для этой задачи требуется водитель Perl DBI (интерфейс к базам данных), или библиотека, которая позволяет liguaggio интерфейс к нашей базе данных.
Мало того, мы также должны модуль MySQL DBD, интерфейс или связи в нашей БД.
Перед peranto вы должны проверить на нашем сервере, DBI и DBD.
Если оба гонщика присутствует, мы можем продолжить. В противном случае, прежде чем это сделать, вам придется устанавливать оба пакета.

Вот небольшой Perl, использующий scriptin (точно) эти драйверы для ввода данных в нашей БД MySQL.
Код:

 #! / USR / BIN / Perl-W

 


 



 использования DBI;

 

 



 # Доступ к данным в БД MySQL

 






 $ = База данных "имя_базы_данных";







 $ User = "корень";







 $ Pass = "секретно";







 $ Driver = "DBI: MySQL";

 

 



 # Подключение к базе данных

 






 мой $ д.у.г. = "DBI -> подключения ($ водителя: базы данных = $ базе данных, $ USER, $ проход)

 






 или умереть "Не удается подключиться!"

 

 



 # Вставить некоторые данные в БД

 






 $ DBH-> делать ("INSERT INTO таблица (Поле1, поле2) VALUES ('фу', 'бар')");

 

 



 # Отключение от БД

 






 $ DBH-> отключить;

 

 



 выхода;