การใช้งาน Export data to json ในภาษา Perl แบบง่ายๆ พร้อมตัวอย่าง

# การใช้งาน Export Data to JSON ในภาษา Perl คือการอะไร และทำอย่างไร?

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

ใช้โมดูล JSON

Perl เป็นภาษาโปรแกรมมิ่งที่มีโมดูลสำหรับงานเกือบทุกประเภท สำหรับการทำงานกับ JSON, โมดูล 'JSON' หรือ 'JSON::XS' เป็นโมดูลที่นิยมใช้ ด้วยความสามารถในการเข้ารหัสและถอดรหัสข้อมูลเป็น JSON ได้อย่างง่ายดาย เราสามารถติดตั้งโมดูลเหล่านี้ผ่าน CPAN ได้ดังนี้:

 cpan JSON

หรือ

 cpan JSON::XS

ตัวอย่างโค้ดที่ 1: การแปลงโครงสร้างข้อมูลใน Perl ไปเป็น JSON String

 use JSON; # โหลดโมดูล JSON

my $data = {
    name => 'EPT',
    location => 'Thailand',
    courses => ['Perl', 'Python', 'Ruby'],
};

my $json = encode_json($data); # เข้ารหัสข้อมูลเป็น JSON string

print $json;

ในตัวอย่างนี้ เรามี hash reference ที่ชื่อว่า `$data` ซึ่งเก็บข้อมูลเกี่ยวกับสถาบัน EPT ทำการแปลงเป็น JSON string ด้วยฟังก์ชั่น `encode_json` และทำการ print ออกมา

ตัวอย่างโค้ดที่ 2: การเขียน JSON String ลงไฟล์

 use JSON;

my $data = {
    name => 'EPT',
    location => 'Thailand',
    courses => ['Perl', 'Python', 'Ruby'],
};

my $json = to_json($data, { utf8 => 1, pretty => 1 });

open my $fh, '>', 'school_info.json' or die "Cannnot open file: $!";
print $fh $json;
close $fh;

ในตัวอย่างนี้ เราใช้ฟังก์ชั่น `to_json` ซึ่งเป็นทางเลือกของ `encode_json` แต่เพิ่มความสามารถในการปรับแต่งการเขียน JSON ออกมาได้สวยงาม (`pretty => 1`) และในรูปแบบ UTF-8 (`utf8 => 1`) หลังจากนั้นเราเขียน JSON string ดังกล่าวไปยังไฟล์ชื่อ `school_info.json`

ตัวอย่างโค้ดที่ 3: การอ่านข้อมูลจากไฟล์ JSON และแปลงกลับให้เป็นโครงสร้างข้อมูลใน Perl

 use JSON;

open my $fh, '<', 'school_info.json' or die "Cannot open file: $!";
my $json_string = do { local $/; <$fh> };
close $fh;

my $data_from_json = from_json($json_string);

use Data::Dumper;
print Dumper($data_from_json);

ในตัวอย่างนี้ เราอ่านข้อมูลจากไฟล์ JSON เข้ามาในรูปของ string ที่ชื่อ `$json_string` จากนั้น เราใช้ฟังก์ชั่น `from_json` เพื่อวิเคราะห์ (parse) JSON string กลับเป็นโครงสร้างข้อมูลตั้งต้นใน Perl และใช้ `Data::Dumper` เพื่อดูโครงสร้างข้อมูล

Usecase ในโลกจริง

JSON ถูกใช้ในส่วนการทำงานของ API ที่เป็นส่วนสำคัญในระบบ Microservices เพื่อที่จะมีการสื่อสารระหว่างบริการต่างๆ เช่น บริการของสถาบัน EPT อาจจะมี API สำหรับการส่งข้อมูลหลักสูตร, การลงทะเบียนเรียน หรือข้อมูลส่วนตัวของนักเรียน ซึ่งการแลกเปลี่ยนข้อมูลเหล่านี้อาจจะถูกใช้งานผ่าน JSON

นอกจากนี้ JSON ยังใช้ในการจัดเก็บค่าคอนฟิกเรเช่นในการตั้งค่าโปรเจคต่างๆ อีกด้วย

การเรียนภาษา Perl และการใช้งาน JSON ในสถาบัน EPT จะช่วยให้นักพัฒนามีทักษะที่จำเป็นในการจัดการกับสถานการณ์เหล่านี้ และทำให้มีความโดดเด่นในตลาดงานที่มีการแข่งขันสูงในยุคปัจจุบัน

หากคุณพร้อมที่จะพัฒนาทักษะการเขียนโค้ด และการจัดการข้อมูลของคุณ อย่ารอช้าที่จะเข้าร่วมโปรแกรมที่ EPT เพื่อเติมเต็มประสบการณ์การเรียนรู้และเปิดประตูสู่โอกาสใหม่ๆในอาชีพของคุณ!

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