Perl un DBI: pirmais skripts ar MySQL

Šajā rakstā mēs centīsimies saprast kopā, kā lietot MySql db ar Perl.
Tā ir jābūt pirms no sākuma, ka šo uzdevumu vajadzībām Perl DBI vadītājs (Database Interface), kas ir bibliotēka, kas ļauj liguaggio saskarnes mūsu datu bāzē.
Ne tikai to, ka mums ir vajadzīga arī moduli DBD MySql, vai komunikatīvās saskarnes mūsu db.
Pirms peranto jums vajadzētu pārbaudīt mūsu serverī DBI un DBD.
Ja divi autovadītāji ir klāt mēs varam turpināt. Pretējā gadījumā, pirms turpināt, jums būs nepieciešams uzstādīt gan.

Šeit ir neliels perl izmanto scriptin (precīzi), šie autovadītāji ievadīt datus mūsu MySQL db.
Kods:

 # / Usr! / Bin / perl-w

 


 



 izmantot DBI;

 

 



 # Pieslēgties MySQL db

 






 $ Database = "dbname";







 $ User = "root";







 $ Pass = "slepens";







 $ Driver = "DBI: mysql";

 

 



 # Pieslēgties db

 






 mans $ dbh = "DBI -> savienot ($ draiveris: datubāzi = $ datubāzi, $ user, $ pass)

 






 vai mirt "Nevar pieslēgties!"

 

 



 # Ievietojiet dažus datus DB

 






 $ Dbh-> darīt ("INSERT INTO tabula (Field1, Field2) VALUES ('foo", "bārā')");

 

 



 # Atvienojiet no db

 






 $ Dbh-> Atvienoties;

 

 



 izeju;