Perl ir DBI: pirmasis scenarijų su MySQL

Šiame straipsnyje mes pasistengsime suprasti, kartu kaip naudotis mysql db su Perl.
Tai turėtų iš karto prieš, kad šią užduotį turi Perl DBI tvarkyklę (duomenų bazės sąsaja), arba biblioteką, kuri leidžia liguaggio sąsaja mūsų duomenų bazėje.
Ne tik, kad mums taip pat reikia MySQL DBD modulis, sąsajos arba ryšių mūsų dB.
Prieš peranto turėtumėte patikrinti mūsų serveryje, DBI ir DBD.
Jei abu vairuotojai metu mes galime tęsti. Priešingu atveju, prieš tai padarysite, jums reikės įdiegti abu.

Čia yra nedidelis perl, kuri naudoja scriptin (tiksliai) šie vairuotojai įvesti duomenis mūsų MySQL db.
Kodas:

 #! / Usr / bin / perl-w

 


 



 naudoti DBI;

 

 



 # Access duomenis į mysql db

 






 $ Bazė = "dbname";







 $ Vartotojas = "root";







 $ Pass = "slaptai";







 $ Vairuotojo = "DBI: mysql";

 

 



 # Prisijungti prie db

 






 my $ SKA = DBI -> prijungti ($ vairuotojas: duomenų bazės = $ duomenų bazę, $ user, $ pass)

 






 arba mirti "Nepavyko prisijungti!"

 

 



 # Įdėkite kai kuriuos duomenis į DB

 






 $ SKA-> padaryti ("INSERT INTO lentelė (field1, field2) VALUES ('foo' į 'bar')");

 

 



 # Atsijungimas nuo db

 






 $ SKA-> Baigti ryšį;

 

 



 išvykstant;