Perl บน Maguyva: กราฟแพ็กเกจและซับรูทีน

ทำไมมรดก Perl จึงแก้ไขอย่างปลอดภัยได้ยาก

โค้ด Perl หนาแน่น ยืดหยุ่น และมักเขียนโดยคนที่จากไปหลายปีแล้ว sigil เปลี่ยนความหมายของชื่อ แพ็กเกจทำหน้าที่เป็นคลาสด้วย และโมดูลเดียวกันถูกโหลดจากสคริปต์ในหลายไดเรกทอรี การค้นหาข้อความหาสตริงเจอ แต่ไม่ได้บอกเอเจนต์ว่าสคริปต์เรียกซับรูทีนใดจริง

Maguyva ให้แพ็กเกจ ซับรูทีน การนำเข้า และคอนสตรักเตอร์กับเอเจนต์ในรูปของโครงสร้าง เพื่อให้กำหนดขอบเขตการเปลี่ยนแปลงได้ก่อนแตะโค้ด

Maguyva ดึงอะไรจาก Perl ได้บ้าง

Maguyva ครอบคลุม .pl, .pm, .t, .pod และ .perl ซับรูทีนถูกดึงออกมาเป็นฟังก์ชัน และการประกาศ package เป็นคลาส โดย sigil ($, @, %, &, *) ถูกตัดออกจากชื่อนิยาม จึงค้นหาตัวแปรและซับรูทีนด้วยชื่อเปล่าได้

การนำเข้ามาจากคำสั่ง use, require และ package การเรียกเมธอดรูปแบบ Class->new นับเป็นการสร้างอินสแตนซ์ ส่วน bless และ tie ถูกเก็บไว้ในกราฟการเรียกโดยตั้งใจ กราฟยังบันทึกการสืบทอด การ override การอ้างอิงชนิดข้อมูล การอ่านและการเขียน และการโยนเอกซ์เซปชันด้วย

ฟังก์ชันในตัวราว 189 รายการ (print, open, die, warn และอื่น ๆ ทำนองเดียวกัน) ถูกกรองออกจากความสัมพันธ์การเรียก เพื่อให้โค้ดของรีโพซิทอรีโดดเด่นขึ้นมา

ตัวอย่างพรอมต์สำหรับเอเจนต์

• “สคริปต์ใดใช้ Billing::Invoice และเรียกซับรูทีนใดของแพ็กเกจนี้” (dependency_search ทิศทางขาเข้า)
• “Report::Monthly ถูกสร้างที่ใด และเกิดอะไรขึ้นหลัง ->new” (find_symbol แล้วตามด้วย get_task_context)
• “หาไฟล์ทดสอบทั้งหมดที่ทดสอบ Auth::Session” (text_pattern_search แล้วตามด้วย find_symbol)

ข้อจำกัดที่ทราบ

• เมธอด Perl แบบดั้งเดิมเป็นเพียงการประกาศ sub ภายในแพ็กเกจ ในการค้นหาเชิงโครงสร้าง จึงมีเพียงไวยากรณ์ method แบบเฉพาะที่ใหม่กว่าที่ถูกจัดเป็นเมธอด สำหรับ Perl เชิงวัตถุรุ่นเก่า ให้ใช้พรีเซ็ต functions
• การเรียกฟังก์ชันในตัวที่ถูกกรองจะไม่ปรากฏเป็นเส้นเชื่อมในกราฟ ใช้ text_pattern_search เมื่อต้องการทุกการเรียก open หรือ print

ขั้นตอนถัดไป

เชื่อมต่อรีโพซิทอรีด้วยคู่มือเริ่มต้นใช้งาน แล้วดูตารางการรองรับได้ที่หน้าความเข้ากันได้ หากมรดกโค้ดกำลังย้ายไปภาษาสคริปต์อื่น ให้เทียบกับคู่มือภาษา Python