JSON กับ Perl

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

สิ่งแวดล้อม

ก่อนที่คุณจะเริ่มเข้ารหัสและถอดรหัส JSON โดยใช้ Perl คุณต้องติดตั้งโมดูล JSON ซึ่งสามารถรับได้จาก CPAN เมื่อคุณดาวน์โหลด JSON-2.53.tar.gz หรือเวอร์ชันล่าสุดอื่น ๆ แล้วให้ทำตามขั้นตอนด้านล่างนี้ -

$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install

ฟังก์ชัน JSON

ฟังก์ชัน	ห้องสมุด
encode_json	แปลงโครงสร้างข้อมูล Perl ที่กำหนดให้เป็นสตริงไบนารีที่เข้ารหัส UTF-8
decode_json	ถอดรหัสสตริง JSON
to_json	แปลงโครงสร้างข้อมูล Perl ที่กำหนดให้เป็นสตริง json
from_json	คาดหวังสตริง json และพยายามแยกวิเคราะห์โดยส่งคืนการอ้างอิงที่เป็นผลลัพธ์
Convert_blessed	ใช้ฟังก์ชันนี้กับค่าจริงเพื่อให้ Perl สามารถใช้เมธอด TO_JSON บนคลาสของอ็อบเจ็กต์เพื่อแปลงอ็อบเจ็กต์เป็น JSON

การเข้ารหัส JSON ใน Perl (encode_json)

ฟังก์ชัน Perl encode_json () จะแปลงโครงสร้างข้อมูล Perl ที่กำหนดให้เป็นสตริงไบนารีที่เข้ารหัส UTF-8

ไวยากรณ์

$json_text = encode_json ($perl_scalar );
or
$json_text = JSON->new->utf8->encode($perl_scalar);

ตัวอย่าง

ตัวอย่างต่อไปนี้แสดงอาร์เรย์ภายใต้ JSON พร้อม Perl -

#!/usr/bin/perl
use JSON;

my %rec_hash = ('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);
my $json = encode_json \%rec_hash;
print "$json\n";

ขณะดำเนินการสิ่งนี้จะให้ผลลัพธ์ดังต่อไปนี้ -

{"e":5,"c":3,"a":1,"b":2,"d":4}

ตัวอย่างต่อไปนี้แสดงให้เห็นว่าออบเจ็กต์ Perl สามารถแปลงเป็น JSON ได้อย่างไร -

#!/usr/bin/perl

package Emp;
sub new {
   my $class = shift;
	
   my $self = {
      name => shift,
      hobbies  => shift,
      birthdate  => shift,
   };
	
   bless $self, $class;
   return $self;
}

sub TO_JSON { return { %{ shift() } }; }

package main;
use JSON;

my $JSON = JSON->new->utf8;
$JSON->convert_blessed(1);

$e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm");
$json = $JSON->encode($e);
print "$json\n";

ในการดำเนินการจะให้ผลลัพธ์ดังต่อไปนี้ -

{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}

การถอดรหัส JSON ใน Perl (decode_json)

ฟังก์ชัน Perl decode_json () ใช้สำหรับถอดรหัส JSON ใน Perl ฟังก์ชันนี้ส่งคืนค่าที่ถอดรหัสจาก json เป็นชนิด Perl ที่เหมาะสม

ไวยากรณ์

$perl_scalar = decode_json $json_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)

ตัวอย่าง

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

#!/usr/bin/perl
use JSON;
use Data::Dumper;

$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';

$text = decode_json($json);
print  Dumper($text);

ในการดำเนินการจะให้ผลลัพธ์ดังต่อไปนี้ -

$VAR1 = {
   'e' => 5,
   'c' => 3,
   'a' => 1,
   'b' => 2,
   'd' => 4
};