Perl och DBI: den första skriptet med MySQL

I denna artikel kommer vi att försöka förstå varandra hur man använder MySQL db med Perl.
Det bör omedelbart föregå att för denna uppgift behöver Perl DBI föraren (Database Interface), eller ett bibliotek som gör att liguaggio att anslutas till vår databas.
Inte bara det, behöver vi också MySQL DBD modulen, gränssnittet eller kommunikation i vår dB.
Innan peranto bör du kontrollera på vår server, DBI och DBD.
Om båda förarna är närvarande kan vi fortsätta. Annars innan du gör, måste du installera båda.

Här är ett litet perl som använder scriptin (exakt) dessa förare att mata in data i vår MySQL db.
Kod:

 #! / Usr / bin / perl-w

 


 



 Använd DBI;

 

 



 # Access-data till MySQL db

 






 $ Databas = "dbname";







 $ User = "root";







 $ Godkänd = "hemligt";







 $ Driver = "DBI: mysql";

 

 



 # Anslut till db

 






 min $ dbh = "DBI -> anslut ($ drivrutin: databas = $ databas, $ user, $ pass)

 






 eller dö "Kan inte ansluta!"

 

 



 # Sätt in en del data i DB

 






 $ DBH-> göra ("INSERT INTO tabell (Fält1, Fält2) VALUES ('foo', 'bar')");

 

 



 # Koppla från db

 






 $ DBH-> Koppla;

 

 



 exit;