Perl a DBI: první skript s MySQL

V tomto článku se budeme snažit pochopit, jak společně použít MySQL db s Perl.
Je třeba okamžitě předcházet, že pro tento úkol musí Perl DBI ovladač (databázové rozhraní), nebo knihovna, která umožňuje liguaggio na rozhraní do naší databáze.
A nejen to, potřebujeme také MySQL DBD modulů, rozhraní a komunikace v naší db.
Před peranto byste měli zkontrolovat na našem serveru, DBI a DBD.
Pokud se oba závodníci jsou přítomni, můžeme pokračovat. Jinak, než tak učiníte, budete muset nainstalovat oba.

Zde je malý Perl, který používá scriptin (přesně), tyto ovladače pro zadání údajů do naší db MySQL.
Kód:

 #! / Usr / bin / perl-w

 


 



 použití DBI;

 

 



 # Přístupové údaje do mysql db

 






 $ Database = "dbname";







 $ User = "root";







 $ Pass = "tajemství";







 $ Driver = "DBI: mysql";

 

 



 # Připojit k DB

 






 my $ DBH = "DBI -> connect ($ řidiče: database = $ databáze, $ user, $ pass)

 






 or die "Nelze se připojit!"

 

 



 # Vložení některá data do DB

 






 $ DBH-> do ("INSERT INTO tabulka (pole1, pole2) VALUES ('foo', 'bar')");

 

 



 # Odpojení od db

 






 $ DBH-> Odpojit;

 

 



 exit;