Perl ja DBI: ensimmäinen käsikirjoitus MySQL

Tässä artikkelissa aiomme yrittää selvittää yhdessä, miten käyttää MySQL db Perlillä.
Se tulisi välittömästi ennen että tähän tehtävään on Perl DBI kuljettaja (Database Interface), tai kirjasto, jonka avulla liguaggio liitäntävaatimuksia tietokantaan.
Paitsi, että tarvitsemme myös MySQL DBD moduuli, käyttöliittymän tai viestintää meidän dB.
Ennen peranto sinun tulisi tarkistaa palvelimelta, DBI ja DBD.
Jos molemmat kuljettajat ovat läsnä voimme jatkaa. Muuten, ennen kuin teet, sinun täytyy asentaa molemmat.

Tässä on pieni perl joka käyttää scriptin (tarkasti) nämä kuljettajat syöttää tietoja meidän MySQL db.
Koodi:

 #! / Usr / bin / perl-w

 


 



 käyttää DBI;

 

 



 # Pääsy tietoihin MySQL dB

 






 $ Database = "dbname";







 $ User = "root";







 $ Pass = "salainen";







 $ Driver = "DBI: mysql";

 

 



 # Liitä dB

 






 my $ rinnankorkeusläpimitta = "dBi -> connect ($ kuljettaja: tietokanta = $ tietokanta, $ user, $ pass)

 






 tai kuole "Ei voi yhdistää!"

 

 



 # Aseta jotkut tiedot DB

 






 $ Rinnankorkeusläpimitta-> do ("INSERT INTO taulukko (kenttä1, kenttä2) VALUES ('foo', 'bar')");

 

 



 # Irrota dB

 






 $ Rinnankorkeusläpimitta-> katkaista;

 

 



 exit;