Perl og DBI: Det første script med MySQL

I denne artikel vil vi forsøge at forstå, sammen, hvordan du bruger mysql db med Perl.
Det bør straks forud for denne for denne opgave brug for Perl DBI driver (Database Interface), eller et bibliotek, der gør det muligt for liguaggio at interface til vores database.
Ikke kun det, vi har også brug for MySQL DBD-modulet, interface eller kommunikation i vores db.
Før peranto du bør tjekke på vores server, DBI og DBD.
Hvis begge bilister er til stede, vi kan fortsætte. Ellers, før du gør det, bliver du nødt til at installere både.

Her er et lille perl, der bruger scriptin (præcist) disse drivere til at indtaste data i vores MySQL db.
Code:

 #! / Usr / bin / perl-w

 


 



 brug DBI;

 

 



 # Data fra Access til mysql db

 






 $ Database = "dbname";







 $ User = "rod";







 $ Pass = "hemmelige";







 $ Driver = "DBI: mysql";

 

 



 # Opret forbindelse til db

 






 mine $ DBH = "DBI -> connect ($ driver: database = $ database, $ user, $ pass)

 






 eller dø "Kan ikke oprette forbindelse!"

 

 



 # Indsætte nogle data i DB

 






 $ DBH-> gøre ("INSERT INTO tabel (Felt1, Felt2) VALUES ('foo', 'bar')");

 

 



 # Afbryd forbindelsen til db

 






 $ DBH-> afbryde;

 

 



 exit;