Perl og DBI: den første skriptet med MySQL

I denne artikkelen vil vi prøve å forstå sammen hvordan du skal bruke MySql db med Perl.
Det bør gjøres før fra begynnelsen at denne oppgaven må Perl DBI driver (Database Interface), som er et bibliotek som lar liguaggio til grensesnitt til vår database.
Ikke bare det, trenger vi også modulen DBD MySql, eller kommunikative grensesnittet i db vår.
Før peranto bør du sjekke på vår server DBI og DBD.
Hvis de to driverne er til stede kan vi fortsette. Ellers, før du går videre, må du installere begge.

Her er et lite perl utnytter scriptin (nettopp) disse driverne å legge inn data i vår MySQL db.
Koden:

 #! / Usr / bin / perl-w

 


 



 bruk DBI;

 

 



 # Logg inn på MySQL db

 






 $ Database = "DBNAME";







 $ User = "root";







 $ Pass = "hemmelige";







 $ Driver = "DBI: mysql";

 

 



 # Koble til db

 






 my $ DBH = "DBI -> koble ($ driver: database = $ database, $ bruker, $ pass)

 






 or die "Kan ikke koble til!"

 

 



 # Sett inn noen data i DB

 






 $ DBH-> gjøre ("INSERT INTO Table (field1, Field2) VALUES ('foo', 'bar')");

 

 



 # Koble fra db

 






 $ DBH-> koble;

 

 



 exit;