การใช้งาน Parse JSON to array ในภาษา Perl แบบง่ายๆ พร้อมตัวอย่าง

การในงานการ Parse JSON to Array ในภาษา Perl

หลายๆ ครั้งในการพัฒนาซอฟต์แวร์ เรามักจะพบการใช้งานข้อมูลแบบ JSON (JavaScript Object Notation) เนื่องจากว่า JSON เป็นหนึ่งในรูปแบบมาตรฐานของข้อมูลที่ใช้ในการแลกเปลี่ยนข้อมูลบนเว็บ และมีโครงสร้างที่เรียบง่าย, อ่านง่าย และเขียนง่าย ในภาษา Perl, การแปลง (หรือที่เรียกว่า parsing) ข้อมูลจาก JSON เป็น array หรือ hash ทำได้อย่างง่ายดายด้วยการใช้งานโมดูล CPAN ที่ทรงพลัง เช่น JSON หรือ JSON::XS

1. การติดตั้งโมดูล

ก่อนที่เราจะเริ่ม parse JSON, คุณต้องติดตั้งโมดูล JSON บน Perl โดยใช้ cpanm หรือ ใช้ระบบการจัดการ package ของ Perl:

 cpan JSON
# หรือ
cpanm JSON

2. ตัวอย่าง CODE

ตัวอย่างที่ 1:

 use JSON; # นำเข้าโมดูล JSON

my $json_text = '["Perl", "Python", "Java"]'; # สร้าง string JSON
my $perl_arrayref = decode_json($json_text); # Decode JSON string ไปเป็น reference ของ array

foreach my $lang (@$perl_arrayref) { # วนลูปเพื่ออ่านค่าใน array
    print "$lang\n"; # พิมพ์ค่าที่อยู่ใน array
}

ตัวอย่างที่ 2:

 use JSON;

my $json_text = '[{"name":"John", "age":30}, {"name":"Jane", "age":25}]';
my $people_arrayref = decode_json($json_text);

foreach my $person (@$people_arrayref) {
    print "Name: $person->{'name'}, Age: $person->{'age'}\n";
}

ตัวอย่างที่ 3:

 use JSON;

my $json_text = '{"employees":[{"firstName":"John", "lastName":"Doe"},{"firstName":"Anna", "lastName":"Smith"},{"firstName":"Peter", "lastName":"Jones"}]}';

my $data = decode_json($json_text);
my @employees = @{ $data->{'employees'} };

foreach my $e (@employees) {
    print "$e->{'firstName'} $e->{'lastName'}\n";
}

3. การอธิบายการทำงาน

การใช้โมดูล JSON ใน Perl ช่วยให้เรา decode JSON string อย่างง่ายดาย ผ่านฟังก์ชัน `decode_json` ฟังก์ชันนี้จะเปลี่ยน JSON string ที่เป็นข้อความเปล่าๆ ให้เป็น Perl data structure (เช่น hashref หรือ arrayref) ที่สามารถทำงานกับมันได้เหมือนกับตัวแปรธรรมดาในภาษา Perl

4. Usecase ในโลกจริง

JSON เป็นรูปแบบของข้อมูลที่ใช้กันอย่างแพร่หลายในโลกของการพัฒนาเว็บแอปพลิเคชัน ตัวอย่างเช่น การทำ API ที่ให้บริการข้อมูลสำหรับผู้ประกอบการที่ต้องการข้อมูลสินค้าสต็อก หรือโปรแกรมการจองบริการต่างๆ ที่ต้องการแปลงข้อมูลจากฐานข้อมูลเป็น JSON เพื่อส่งไปยังเว็บคลายเอ็นต์ ใน Perl, parsing JSON เพื่อแปลงข้อมูลเป็น data structure ที่สามารถใช้ในการจัดการข้อมูลได้ง่ายขึ้นและเร็วขึ้น

5. เชิญชวนเข้าเรียนที่ EPT

ถ้าคุณสนใจที่จะเรียนรู้การใช้งาน JSON ในภาษา Perl เพื่อการประยุกต์ใช้ในโลกของการพัฒนาแอปพลิเคชัน, หรือแม้แต่การใช้ Perl เพื่อแก้ปัญหาทางด้านการเขียนโปรแกรมในหลายๆ ด้าน คุณสามารถทำได้ด้วยการศึกษาที่ EPT หรือ Expert-Programming-Tutor ที่นี่, เรามีคอร์สที่จะช่วยให้คุณเข้าใจเกี่ยวกับภาษา Perl และการใช้งานมันในสถานการณ์จริง และพร้อมที่จะหยิบมันมาใช้ในการพัฒนาอาชีพของคุณได้

ให้ EPT เป็นส่วนหนึ่งในการสร้างความสำเร็จในเส้นทางการเขียนโปรแกรมของคุณ และพัฒนาศักยภาพของคุณไปกับเรา

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