Perl และ DBI : สคริปต์แรกกับ MySQL

ในบทความนี้เราจะพยายามที่จะทำความเข้าใจร่วมกันถึงวิธีการใช้ MySQL DB กับ Perl
มันทันทีควรนำหน้าว่าสำหรับงานนี้ความต้องการของไดรเวอร์ Perl DBI (ติดต่อฐานข้อมูล) หรือห้องสมุดที่ช่วยให้ liguaggio เพื่อติดต่อไปยังฐานข้อมูลของเรา
ไม่เพียง แต่ที่เรายังต้องโมดูล MySQL DBD อินเตอร์เฟซหรือการสื่อสารในฐานข้อมูลของเรา
ก่อนที่จะ peranto คุณควรตรวจสอบบนเซิร์ฟเวอร์ของเรา, DBI และ DBD
หากไดรเวอร์ทั้งสองมีในปัจจุบันเราสามารถดำเนินการต่อ มิฉะนั้นก่อนที่คุณจะทำคุณจะต้องติดตั้งทั้ง

นี่เป็น Perl ขนาดเล็กที่ใช้ scriptin (แม่นยำ) ไดรเวอร์เหล่านี้เพื่อป้อนข้อมูลใน MySQL DB ของเราคือ
รหัส :

 #! / usr / bin / perl - W

 


 



 ใช้ DBI;

 

 



 # การเข้าถึงข้อมูลเพื่อ MySQL DB

 






 ฐานข้อมูล $ ="dbname";







 $ user ="root";







 ผ่าน $ ="ความลับ";







 ไดร์เวอร์ $ ="DBI : MySQL";

 

 



 # เชื่อมต่อกับฐานข้อมูล

 






 $ dbh ฉัน ="DBI --> connect ($ ไดรเวอร์ : ฐานข้อมูลผ่าน $ = ฐานข้อมูลผู้ใช้ $ $)

 






 หรือตาย"ไม่สามารถเชื่อมต่อ!"

 

 



 # แทรกข้อมูลบางส่วนในฐานข้อมูล

 






 $ dbh -> ทำ (แทรก"ลงในตาราง (Field1, Field2) VALUES ('foo','บาร์ ')");

 

 



 # ถอดจากฐานข้อมูล

 






 $ dbh -> ตัดการเชื่อมต่อ;

 

 



 ออกจาก;