Perl i DBI: pierwszy skrypt z MySQL

W tym artykule postaramy się zrozumieć razem jak używać mysql db z Perl.
To powinien bezpośrednio poprzedzać, że do tego zadania potrzeb kierowcy DBI Perl (interfejs bazy danych), lub w bibliotece, która pozwala liguaggio do interfejsu do naszej bazy danych.
Nie tylko, że musimy także MySQL moduł DBD, interfejs lub komunikacji w naszym db.
Przed peranto należy sprawdzić na naszym serwerze, DBI i DBD.
Jeżeli obaj kierowcy są obecne możemy kontynuować. W przeciwnym razie, zanim to zrobisz, będziesz musiał zainstalować oba.

Oto mały perl, który wykorzystuje skrypt (dokładnie) te sterowniki do wprowadzania danych w naszej bazie danych MySQL.
Kod:

 #! / Usr / bin / perl-w

 


 



 use DBI;

 

 



 # Dostęp do danych z mysql db

 






 $ Baza = "dbname";







 $ User = "root";







 $ Pass = "tajne";







 $ Driver = "DBI: mysql";

 

 



 # Połącz do db

 






 my $ dbh = "DBI -> connect ($ kierowcy: database = $ baza, $ user, $ pass)

 






 or die "Nie można połączyć!"

 

 



 # Insert niektóre dane w DB

 






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

 

 



 # Rozłącz się z db

 






 $ Dbh-> disconnect;

 

 



 exit;